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E vero: piccolo è bello! 


Alla scoperta dello 
ZX SPECTRUM 


a cura di Rita Bonelli 


ZX Spectrum è l’ultimo nato della famiglia Sinclair. E un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aluta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione med ni 
in BASIC, ma arriverete anche a usare efficientemente il se 
registratore e a sfruttare al meglio le stampe. 
Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. i 


320 pagine. Lire 22.000 Codice 337 B 
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Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della ì 
Sinclair è il computer più venduto nel mondo. i 
Oggi, sempre con una modestissima spesa, si può imparare a ; 
sfruttare questo eccezionale strumento al limite delle sue 
capacità. Basta scorrere questo libro per scoprire quante cose 
lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 
economici componenti. Ad esempio, tramite un semplice 
circuito musicale può riprodurre 50 note su 4 ottave e, sempre 
grazie a una modifica hardware da poche migliaia di lire, lo 
ZX 81 diventa anche l’unico computer in grado di conferire 
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effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è GRUPPÒ 

tutto. Un'altra novità di quest'opera, preziosa anche per chi ) EDITOR. 

possiede lo ZX 80 con ROM, è il regalo di alcune tastiere SRI 

disegnate da sovrapporre a quella sensitiva dell'apparecchio, CIC i È 
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Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l'accuratezza e la velo- 
cità di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabi- 
lità che un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi 
riguardanti la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che 
al suo stile, e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida 
permetterà che le vostre buone idee e i vostri programmi vengano più facilmente accettati 


per la pubblicazione: 


1 l'angolo superiore sinistro della prima pagi- 
na dovrà contenere: nome, cognome, indi- 
rizzo, numero telefonico, codice fiscale e data di 
spedizione. 
2 l'angolo superiore destro della prima pagina 
dovrà contenere il nome del computer al 
quale il lavoro si riferisce, unitamente alla confi- 
gurazione richiesta (memoria occorrente, even- 
tuali periferiche e così via). 
3 il titolo sottolineato dell'articolo dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 
4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’ango- 
lo superiore destro contenga un’abbreviazione 
del titolo e del cognome, unitamente al numero 
di pagina progressivo. Per esempio, Horace 
Goes.../Brambilla/2. 
tutte le linee del testo dell’articolo dovranno 
essere battute con spazio 2 o spazio 3, e un 
margine di circa un centimetro dovrà trovarsi ad 
entrambi i lati dello scritto. 
dovrà essere usata una carta formato A4 e lo 
scritto dovrà occupare un solo lato del fo- 
glio (caratteri maiuscoli e minuscoli). 


Tr i fogli dovranno essere uniti con una clip. 
8 avendo intenzione di spedire più di un arti- 
colo, questi dovranno essere inviati separa- 
tamente insieme alla rispettiva copia su suppor- 
to magnetico. 
e) programmi brevi (meno di 20 linee) potran- 
no essere inseriti nel testo, mentre program- 
mi più lunghi dovranno essere listati separata- 
mente. E ESSENZIALE per noi disporre di una 
copia del programma registrata più volte su 
supporto magnetico, su entrambi i lati dello 
stesso. E preferibile usare nastri di buona quali- 
tà e di lunghezza non eccessiva; la cassetta o la 
cartuccia per Microdrive dovranno essere eti- 
chettati con il nome dell’autore, il titolo dell’ar- 
ticolo, il computer interessato e soprattutto’ le 
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eventuali espansioni richieste. Come suggeri- 
menti di programmazione, si consiglia di usare, 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere diretta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 
1 OP maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio 
RETURN, LIST, RIND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinear- 
la piuttosto che scriverla in carattere maiuscolo. 
1 1 gli articoli ed i programmi potranno avere 
qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto comples- 


si. 

1 eno includere fotografie, queste do- 
vranno essere in formato 24 x 36, o 6 x 6, 

in bianco e nero o diapositive. 

1 se prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

1 4i compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 

all'interesse del programma (da un minimo di L. 

50.000 a un massimo di L. 300.000). Il paga- 

mento è effettuato in caso di pubblicazione del 

lavoro. 

1 5i materiale ricevuto e non pubblicato non 
verrà restituito. 


Spedite i vostri lavori a: 


SUPERSINC 
Via Rosellini, 12 
20124 Milano 


e saremo lietissimi di pubblicare i contributi mi- 
gliori. 


La Redazione 


È 


D 


FAPEARNTIARSA I 


= ccoci qua! Ci aspettavate? Speriamo di si! Gli utenti a cui ci rivol- 
_« giamo normalmente sono alla loro prima esperienza in questo 
campo. 

Questo determina, oltre ad un grande entusiasmo, l'impatto imme- 
diato con la realtà che si è creata attorno a questo tipo di macchine. 
L'utente che avvicina per la prima volta un personal computer, dopo 
aver avidamente letto e provato quei piccoli e volutamente banali 
programmi proposti dal manuale, si ritrova a dover cercare, su tutte 
le riviste di settore, altro materiale da far ‘“girare’’ sul nuovo amico. 
La ricerca cui si accennava è talvolta vana e spesso economicamente 
onerosa. 

Ecco dunque SUPERSINC nato proprio per risolvere, speriamo in 
maniera brillante, il problema. 

SUPERSINC è infatti una rivista dedicata ad un computer specifico 
e tutti gli argomenti trattati (hardware, software, libri, notizie, etc.) 
saranno rigorosamente legati a quella macchina o famiglia di mac- 
chine. 

La rivista, oltre a porsi come naturale complemento all'utilizzo del 
computer, cercherà di fornire all'utente notizie e informazioni relati- 
ve alle novità del mercato hardware e software. 

| programmi proposti sono selezionati e tradotti dalle migliori riviste 
inglesi e americane. 

SUPERSINC è una rivista indipendente: non legata, cioé, al costrut- 
tore o al distributore del computer trattato. Questa scelta garantisce 
al lettore l’obbiettività necessaria di una rivista che nasce proprio 
nell'interesse dell’utente. 

Inutile dire che auspichiamo la collaborazione dei lettori che, come 
sempre, sono i giudici assoluti di quanto è proposto; attendiamo 
dunque giudizi, commenti e quant'altro possa esserci utile per fare 
la rivista su misura per voi. 


Pietro Dell’Orco 
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Ustrazioni a colori 


ROGRAMMI PER ZX81 _— PER 
‘EZX80 CON NUOVA ROM ©... 
+ HARDWARE 


144 Pagine 


i Cod.520D 


L. 12000 


Cari lettori, 


come potete immaginare è un po' difficile, nel primo numero di una rivista, disporre di lettere 
che non siano riprese da altri giornali o addirittura inventate di sana pianta: così, solo per questa 
volta, ci permettiamo di invadere lo spazio che dai prossimi numeri verrà occupato da voi. Tutto 
ciò che abbiamo da dirvi è che... aspettiamo i vostri contributi! E un’altra cosa ancora. 

Ci piacerebbe moltissimo vedere questa rubrica diventare, più che un botta-e-risposta fra voi e 
SUPERSINC, uno spazio dove scambiarsi esperienze, trucchi, consigli, fare domande e dare ri- 
sposte a tutto ciò che può essere di interesse generale. Avete trovato la soluzione di un’adventu- 
re? Avete scoperto cosa accade digitando PLOT 127,88:DRAW -50,50,2714? Siete in difficoltà 
con i vostri Microdrive? La linea x del programma tot provoca la fusione dell’alimentatore? In 
parole povere, scriveteci per qualunque cosa abbiate da dirci, e pubblicheremo le lettere più in- 
teressanti e divertenti. Nell'attesa, vi diamo qualche esempio di “lettere a SUPERSINC”, natu- 
ralmente inventate e copiate con la massima spudoratezza. A risentirci! 


Ho scoperto, durante una partita a Ma- 
nic Miner, un fantastico “bug”, che 
consente nientemeno di cominciare il 
gioco partendo da una qualsiasi dei 20 
schermi a scelta. Consiste nel digitare 
(a questo punto ci fermiamo per non 
disgustare i puristi di Manic Miner. Ma 
se i non puristi sono tanti, potremmo 
anche dirvelo... una volta verificata la 
cosa. n.d.r.). 


Ben Hordyment - Clapham, London 
SW4 


Caro SUPERSINC, 

nel vostro gioco “Pippo, Pluto e Pape- 
rino”, sostituendo la linea 450 con 
LET A$ = “GAMBADILEGNO”, la rou- 
tine di scrolling video raddoppia la ve- 
locità di esecuzione. 


Walter. E. Disney - Epcot (USA) 


Cara Redazione, 

ho scoperto un sistema alternativo al 
BREAK per fermare un programma: 
occorre premere contemporaneamen- 
te i tasti Z, CAPS SHIFT e SYMBOL 
SHIFT. Trovo che potrebbe tornare uti- 
le nel caso non si voglia usare il tasto 
BREAK. 


Peter Ryan - Middlesex 


Caro SUPERSINC, 
accludo un miniprogramma per trac- 
ciare spirali: 

5 INPUT x,y 


La redazione 


10 INPUT “Che numero?”;p 

15 PLOT 128,88 

20 FOR a =0 TO 500*PI STEP Pl/p 
30 DRAW x *a*SIN a, y*a*COS a 

40 NEXT a 

Provate anche ad aggiungere OVER 1. 


Simon White - Gloucestershire 


Spettabile redazione, 

ho letto della prossima uscita di un 
nuovo computer Sinclair. Non potreste 
darmi delle informazione più dettaglia- 
te in proposito? La Spectrum conti- 
nuerà a essere prodotto o farà la fine 
del TI/99? 


Ruggero Amiconi - Abbiategrasso 


Caro SUPERSINC, 

sono un ragazzo di 11 anni appassio- 
nato di computer. Mi piacerebbe sape- 
re dove posso trovare i Microdrive per 
il mio Spectrum e se potrò copiarci so- 
pra i miei videogames. 

Alessio Ronconi - Milano 


Egregio Signor Direttore, 

di ritorno da un viaggio in Inghilterra 
ho portato a casa in regalo per mio fi- 
glio la cassetta Atic Atac. 

Sono ormai due settimane che stiamo 
cercando la soluzione del gioco, senza 
trovarla. Lei non sa se qualcuno ci po- 
trebbe aiutare o dare dei consigli? La 
ringrazio vivamente. 


Salvatore Aguglia - Benevento 


Spettabile Redazione di SUPERSINC, 
sono uno studente diciassettenne da 
circa otto mesi possessore di uno 
Spectrum 48K. Con l'esercizio ho svi- 
luppato una, credo, notevole capacità 
di programmazione e da qualche tem- 
po ho cominciato a scrivere dei video- 
giochi per me e per i miei amici. E pos- 
sibile farli pubblicare su SUPERSINC o 
riuscirli a venderli? Vi allego una cas- 
setta C90 con alcune delle mie “crea- 
zioni”. Ringraziandovi per l’attenzione 
vi saluto. 


Edoardo Cecchi - Firenze 


Egregio Direttore, 

si può collegare lo Spectrum con un 
Commodore 64? E da tempo che io e 
un mio collega di ufficio (che ha il sud- 
detto Commodore) cerchiamo un si- 
stema rapido per scambiarci program- 
mi senza dover ricopiare i reciproci li- 
stati, ma, forse per la nostra relativa 
inesperienza di programmazione, non 
siamo riusciti finora ad ottenere alcun 
risultato. Esiste qualche programma 
per realizzare ciò o il nostro è un caso 
senza speranza? 


Giovanni Mengoni - 
(AN) 


Castelfidardo 


Gentile redazione di SUPERSINC, 

ho comprato il gioco “ah diddums” per 
il mio Spectrum, solo che non riesco a 
copiarlo. Come posso effettuare la co- 
piatura, al solo scopo (glielo garanti- 
sco) di avere una copia di sicurezza nel 
caso che quella che ho comprato si ro- 
vini? 

Francesco De Curtis - Castellammare 
di Stabia (NA) 


Potete consigliarmi dei libri che spie- 
ghino dettagliatamente il linguaggio 
macchina dello Spectrum? 


Stefano Bonora - Bologna 


Carissima Redazione di SUPERSINC, 
ho appena comprato uno Spectrum 
48K per la mia attività di programma. 
zione “hobbistica”, e ho letto che su 
quest'ultimo è possibile programmare 
anche in LISP e Pascal. Sapete se i ri- 
spettivi compilatori sono disponibili in 
Italia o se bisogna per forza rivolgersi 
all’estero? 


Caterina Donati - Pisa 
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Passata la prima ondata di entusia- 
mo esaminiamo caratteristiche, 
pregi e difetti dell’ultimo nato di 
casa Sinclair. 


o scorso gennaio è stato presenta- 
Lio, con un'uscita a sopresa nella mi- 
gliore tradizione Sinclair, il nuovo QL. 
Promettente nel nome (“Quantum 
Leap”, salto qualitativo) ed indubbia- 
mente allettante nelle caratteristiche, 
questa macchina ha sorprendentemen- 
te sollevato parecchie perplessità. 

Sir Clive Sinclair, d’altra parte, è certo 
di aver aperto un nuovo segmento nel 
mercato dell'informatica individuale, 
finora tradizionalmente suddiviso in 
home, personal e business. 

Il QL, infatti, se per prezzo può senz'al- 
tro essere annoverato fra gli home 
computer, quanto a prestazioni è al 
vertice della fascia business. 

Questa sua doppia natura è conferma- 
ta da una parte dalla presenza di due 
prese per joystick, dall’altra dalla note- 
vole dotazione di software professiona- 
le compresa nel prezzo. 

Questa, come vedrete, è solo una delle 


molte, ed in un certo senso affascinan- - 


ti, contraddizioni del QL, un computer 
che forse non siamo ancora preparati a 
valutare correttamente. 


L’esterno 


Molto elegante nella sua essenzialità il 
QL si presenta come un oggetto nero, 
dai riflessi quasi metallici, largo poco 
meno di 50 cm, profondo circa 14 cm 
e con uno sviluppo in altezza di non 
più di qualche centimetro, leggermen- 
te inclinato in avanti per l’effetto di 
una coppia di piedini smontabili. 

La tastiera, che occupa la superficie 
dell'apparecchio eccettuata una por- 
zione quadrata sulla destra, è standard 
per dimensioni (finalmente!) e disposi- 
zione dei tasti (quasi ...), che sono ben 
65, fra cui cinque tasti di funzione pro- 
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di Marcello Spero 


grammabili. Gli esemplari che abbia- 
mo avuto modo di vedere, essendo de- 
stinati al mercato britannico, montava- 
no il tipo QWERTY, ma è prevista per 
le unità destinate al nostro mercato la 
tastiera nazionalizzata. 

Rinviando un giudizio definitivo alla 
vera prova della macchina, che speria- 
mo di poter effettuare quanto prima, 
possiamo dire che la prima impressio- 
ne suscitata da questa tastiera è 
senz'altro positiva. | tasti, costruiti ad 
intarsio per garantirne la durata della 
leggibilità, producono un “click” chia- 
ramente udibile. Sotto di loro, inoltre è 
presente una membrana in gomma, a 
protezione dei contatti elettrici. Nel 
complesso, insomma, si tratta di una 
tastiera che pur non raggiungendo il li- 
vello di eccellenza di alcuni prodotti, 
d'altronde ben più costosi, presenti sul 
mercato, dovrebbe soddisfare anche 
l'utenza più esigente. L'unico appunto 
potrebbe riguardare la posizione del 
tasto CTRL e di alcuni simboli, che 
avrebbe potuto essere più rigorosa- 
mente standard. Infine una pignoleria: 
non sarebbe stato proprio possibile 
collocare in quel quadrato vuoto un 
bel tastierino numerico? 

Subito sotto il bordo anteriore, in cor- 
rispondenza dell’area quadrata qui ac- 
cennavamo, troviamo le due feritorie 
dei Microdrive, la memoria di massa 


Un’occhiata al QL 


del QL di cui parleremo diffusamente 
più avanti. Ai lati della macchina tro- 
viamo invece i connettori di espansio- 
ne: a destra per ulteriori Microdrive (fi- 
no a sei), a sinistra per la RAM aggiun- 
tiva (0,5 Mbyte). Accanto al connettore 
per i Microdrive è inoltre presente un 
pulsantino di reset, per evitare, anche 
in casi estremi, la manovra di spegni- 
mento e riaccensione, altrimenti ne- 
cessaria per ripristinare le condizioni 
iniziali. La scelta di questa posizione 
dovrebbe garantire l'utilizzatore da re- 
set accidentali, con conseguenze sem- 
pre disastrose. 

Il pannello posteriore ospita invece, ol- 
tre alle prese per monitor e televisore, 
utilizzabili contemporaneamente, ed 
all'ingresso dell’alimentazione, le usci- 
te per la comunicazione con l’esterno, 
che comprendono due porte per il col- 
legamento in rete locale, due interfac- 
ce seriali tipo RS-232-C, due prese per 
joystick. E inoltre presente un connet- 
tore per cartucce ROM, mentre non 
esiste, sempre nella tradizione Sin- 
clair, un interruttore di accensione. 


L’interno 


Molto ordinato si presenta suddiviso in 
tre grandi zone: un’area centrale occu- 
pata dalla piastra del circuito vero e 
proprio, una porzione posta anterior- 
mente sulla destra contenente la mec- 


In questa foto e nelle seguenti, immagini del Sinclair QL. 


TABULATE 


CAPS LOCK 


canica dei due Microdrive ed infine 
un'ampia zona vuota sulla sinistra de- 
stinata ad accogliere l'espansione di 
memoria. 

Fra i numerosi circuiti integrati spicca- 
no i due processori affiancati dalla lun- 
ga fila di memorie, ed il modulatore 
per l'uscita TV, dello stesso tipo utiliz- 
zato nello Spectrum. La mancanza di 
qualsiasi tipo di documentazione ci 
impedisce di indagare più a fondo sul 
significato dei numerosi integrati mi- 
nori sparsi un po’ dappertutto. 
Vediamo invece in dettaglio l’architet- 
tura del sistema, fonte anch'essa di po- 
lemiche sulla validità di alcune scelte. 
La CPU, cioè il cuore operativo del si- 
stema, è costituita da un processore 
68008 Motorola di cui parleremo diffu- 
samente più avanti, data l’importanza 
di questa scelta. Ad esso sono affianca- 
ti, per gestire i rapporti con l'esterno, 
un processore ausiliario Intel 8049 e 
due circuiti integrati appositamente 
progettati realizzati per il QL. In que- 
sto modo la CPU è sgravata da tutte le 
attività che potrebbero rallentarla. In 
particolare, il processore ausiliario si 
occupa della tastiera, della generazio- 
ne dei suoni e della ricezione attraver- 
so le due interfacce RS-232-C, mentre i 
due integrati controllano l’uno il video 
e la memoria e l’altro i Microdrive, l’oro- 
logio (il QL contiene un orologio in 
tempo reale indipendente), il collega- 
mento in rete locale, nonché la tra- 
smissione di dati attraverso le interfac- 
ce RS-232. 

Per quanto riguarda la memoria trovia- 
mo una ROM da 32 Kbyte contenente 


linguaggio e sistema operativo, e 128 
Kbyte di RAM. In un futuro molto pros- 
simo, inoltre, sarà disponibile 
un'espansione di memoria da ben mez- 
zo megabyte che, inserita nell’allog- 
giamento già previsto, porterà la me- 
moria totale del sistema al rispettabile 
livello di 640 Kbyte. 

Una tale disponibilità di memoria, an- 
che se verrà sfruttata in pratica da una 
fetta molto ristretta di utenza, dà un 
idea delle possibilità offerte dall’ado- 
zione del 68008 come CPU. Per que- 
sto, e per la novità costituita dall’im- 
piego di un processore di tale potenza 
in una macchina di questa categoria, 
esaminiamo più in dettaglio la CPU del 
QL. 


La CPU 


È costituita, come abbiamo detto, da 
un processore 68008 Motorola. La se- 
rie contrassegnata dalla sigla 68000, 
di cui il 68008 fa parte, sta riscuotendo 
un notevole successo, che porterà pro- 
babilmente questo tipo di processore a 
divenire di uso standard nell’ambito 
delle applicazioni personali dell’ultima 
generazione. Tutti i componenti della 
famiglia 68000 possiedono un’orga- 
nizzazione interna a 32 bit, ma differi- 
scono fra loro per l'ampiezza del bus 
dati, che è il veicolo con cui scambia- 
no informazioni con l’esterno. Il 
68000, *infatti, possiede un bus a 16 
bit, il futuro 68020 lo avrà a 32 bit 
mentre‘l 68008 può disporre di un bus 
a 8 bit, analogo cioè a quello utilizzato 
dal Z80' che equipaggia lo Spectrum. 


Questo non vuole certamente dire che 
quando la Sinclair afferma di aver rea- 
lizzato un computer con processore a 
32 bit stia sostenendo qualcosa di non 
esatto, più semplicemente un compu- 
ter di questo tipo, sebbene incompara- 
bilmente più veloce di qualunque suoi 
concorrente provvisto di un processo- 
re a 8 bit, risulterà leggermente svan- 
taggiato nelle operazioni 1/0 e di acces- 
so alla memoria rispetto a quegli ela- 
boratori che dispongono di processori 
con bus più ampi. 

La scelta di questo tipo di processore, 
d'altra parte, è giustificata dal fatto che 
organizzare la memoria intorno ad un 
bus ad 8 bit è, allo stato attuale delle 
cose, più semplice e più economico. 
Possedere un'architettura interna a 32 
bit, comunque, conferisce a tutto il si- 
stema una grande potenza. Il 68008, in- 
fatti, possiede ben 17 registri di 32 bit 
ciascuno e questo, come tutti coloro 
che programmano in linguaggio mac- 
china sanno bene, vuol dire dover usa- 
re un numero inferiore di istruzioni per 
eseguire le stesse operazioni. 

Per quanto riguarda la quantità di me- 
moria direttamente indirizzabile, inve- 
ce, il 68008, al pari degli altri compo- 
nenti della famiglia, possedendo un 
bus indirizzi da 24 bit può gestire 16 
Mbyte, quantità più che sufficiente per 
applicazioni personali (i processori a 8 
bit, come lo Z80 od il 6502, possono 
indirizzare direttamente solo 64 Kbyte 
dovendo ricorrere, per gestire quantità 
maggiori, a procedimenti elaborati e 
lenti). 

La maggior differenza fra i 68000 e i 
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vecchi 8 bit è comunque nel set di 
istruzioni in linguaggio macchina. 
Senz'altro non è necessario conoscere 
il linguaggio macchina per poter utiliz- 
zare un elaboratore, ma un numero 
sempre maggiore di persone si sta in- 
teressando a questo tipo di linguaggio. 
Del resto, gli stessi programmi BASIC 
vengono tradotti in linguaggio mac- 
china durante l'esecuzione e quindi la 
qualità del linguaggio stesso condizio- 
na di fatto l'efficienza di tutto il siste- 
ma. 

In questo caso abbiamo un set compo- 
sto da sole 56 istruzioni, per altro mo- 
dificabili in molti modi per coprire 
ogni esigenza. Un numero tanto picco- 
lo di istruzioni tanto potenti è facile da 
imparare e da ricordare, e rende i siste- 
mi basati su questo tipo di processori 
da un lato molto efficienti nell’esecu- 
zione dei programmi scritti in linguag- 
-gio ad alto livello, e dall'altro supporti 
ideali per la programmazione in lin- 
guaggio macchina o, meglio, in As- 
sembly. 


Sistema operativo e linguaggio 


Sono entrambi contenuti nella ROM da 
32 Kbyte. Il sistema operativo è assolu- 
tamente nuovo e creato appositamen- 
te per il QL, e si chiama appunto 
QDOS. La sua caratteristica più impor- 
tante e, sotto molti punti di vista, ecce- 
zionale, e di essere un sistema monou- 
tente multitasking. L'utilizzatore può 
cioè avere più programmi contempo- 
raneamente in esecuzione e i cui risul- 
tati possono, se necessario, essere vi- 
sualizzati in finestre sullo schermo, in- 
dipendenti l’una dall’altra. Questo è 
possibile grazie al QDOS, che gestisce 
opportunamente il tempo della CPU 
suddividendolo fra i vari programmi in 
esecuzione, che sono in tal modo ese- 
guiti parallelamente. 

Altra caratteristica di rilievo di questo 
sistema operativo è il sistema di 
ingressi/uscite, completamente indi- 
pendente dal tipo di periferiche colle- 
gate. Questo significa, in altre parole, 
che i programmi potranno essere scrit- 
ti senza fare riferimento alla particola- 
re unità esterna con cui dovranno esse- 
re utilizzati. Questa potrà venire speci- 
ficata di volta in volta al momento 
dell'uso o, in alternativa, rilevata nel ti- 
po e nelle modalità di trasmissione 
dallo stesso calcolatore, che ricono- 
scerà automaticamente la particolare 
periferica collegata, organizzando 
l’input/output di conseguenza. 
Vediamo ora il linguaggio. Quello resi- 
dente è il BASIC, in una particolare 
versione potenziata denominata Su- 
perBASIC, che pur ricalcando il BASIC 
dello Spectrum ne risulta nettamente 
superiore per il maggior numero di 
istruzioni, che gli conferiscono caratte- 
ristiche nuove. Il SuperBASIC è infatti 
un linguaggio strutturato, cioè in pos- 
sesso di tutte quelle strutture (IF THEN 
ELSE, REPEAT, UNTIL, ecc.), comuni 
ai linguaggi di più recente concezione 
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Visibile, in primo piano, l'espansione di memoria da 0,5 Mbyte. 


quali Pascal, ADA, ecc., che consento- 
no la stesura di programmi strutturati 
a blocchi e praticamente privi di istru- 
zioni GO TO, con grande vantaggio 
per la loro comprensione. Altra fonda- 
mentale novità è la sua espandibilità , 
per mezzo di istruzioni DEF PROCE- 
DURE, infatti, è possibile creare proce- 
dure che saranno richiamate da un no- 
me scelto da noi, che funzioneranno 
perciò né più né meno allo stesso mo- 
do delle istruzioni presenti in ROM. E 
stato infine superato un problema pre- 
sente nel BASIC tradizionale, e cioè la 
sua dipendenza, nella velocità di esecu- 
zione, dalla lunghezza del programma. 
Altre istruzioni che rendono più flessi- 
bile e potente la programmazione 
comprendono AUTO, per la numera- 
zione automatica delle linee, BAUD 
per definire da BASIC la velocità di tra- 
smissione seriale WINDOW e CURSOR 
per creare finestre video e posizionare 
al loro interno il cursore, EXEC per ca- 
ricare sequenze di programmi ed ese- 
guirle in parallelo, DATE$ per ottene- 
re data e ora dall'orologio interno, e 
molte altre. Il medesimo SuperBASIC, 
infine, viene utilizzato come linguag- 
gio di comando per il sistema operati- 
vo, rendendo veramente semplice la 
gestione del QDOS. 

Due sono i modi previsti per la grafica 
ad alta dissoluzione: 512 x 256 pixel in 
quattro colori, e 256 x 256 in otto co- 
lori. Sono presenti inoltre una istruzio- 
ne di scala, SCALE, ed una, BLOCK, 
per riempire con un determinato colo- 
re aree chiuse. 

Il testo viene invece normalmente vi- 
sualizzato in un formato di 85 colonne 
per 25 righe, che viene ridotto, nel ca- 
so si usi la TV, a 40-60 colonne. Il for- 
mato dei caratteri, e quindi il numero 
di colonne visualizzate, è comunque 
variabile da BASIC con l'istruzione 
CSIZE. La sottolineatura dei caratteri 
avviene ora in modo semplice con 
l'istruzione UNDER. 


Periferiche 

La memoria di massa standard del QL 
è costituita dai Microdrive, che rappre- 
sentano un'evoluzione rispetto a quelli 


dello Spectrum. La loro capacità è in- 
fatti di 100 Kbyte, la velocità media di 
accesso 3,5 secondi, mentre quella di 
trasferimento raggiunge i 15 Kbyte al 
secondo. Con le due unità incorporate 
l'utente dispone perciò di 200 Kbyte in 
linea, mentre la configurazione massi- 
ma di 6 Microdrive aggiuntivi porta la 
memoria di massa a 800 Kbyte. E inol- 
tre previsto, in un futuro abbastanza 
prossimo, un'interfaccia per disco rigi- 
do tipo winchester. 

A questo punto corre l'obbligo di dire 
che, per quanto non abbiano ancora in 
mano i dati relativi ad un uso reale dei 
Microdrive del QL, l'applicazione di 
questo tipo di memoria di massa ad un 
prodotto indirizzato al settore profes- 
sionale ci lascia alquanto dubbiosi. 
L'unico vero argomento a loro favore, 
rispetto ad un sistema convenzionale a 
floppy disk è infatti il prezzo dei drive. 
Contro abbiamo la struttura seriale 
delle cartucce, che significa tempi ef- 
fettivi di accesso che possono arrivare 
facilmente a 7 secondi, cioè più della 
maggior parte dei drive da 5 1/4. Inol- 
tre avendo questi una capacità inferio- 
re di circa 1/3 ed un prezzo più o meno 
doppio rispetto ai floppy da 5 e 1/4, il 
costo per l'immagazzinamento della 
medesima quantità di dati viene ad es- 
sere, con i Microdrive, circa sei volte 
superiore. Ciò non toglie che per un 
utilizzatore che non necessiti di grandi 
masse di dati e dia invece importanza 
all’ingombro del sistema il Microdrive 
possano rappresentare la soluzione 
ideale. Con l’affiancarsi del disco rigi- 
do, inoltre, si renderà disponibile ai 
grandi utenti un'unità adatta ad essere 
utilizzata anche in unione all’espansio- 
ne di memoria, altrimenti difficilmente 
gestibile visto che può contenere 
l'equivalente di cinque cartucce per 
Microdrive. 


Le uscite presenti sul retro della mac- 
china le consentono il collegamento 
con stampanti seriali, nonché l’inseri- 
mento in una rete locale che può esse- 
re composta da QL e Spectrum fino ad 
un massimo di 64, denominata QLAN. 
Per il trasferimento dei dati attraverso 
questa rete la Sinclair dichiara una ve- 


locità di 100 KBaud che, fatti i conti, 
risulta un po’ superiore a quella previ- 
sta per la Local Area Network dello 
Spectrum, data per 5 KByte/sec. E 
realmente possibile collegare degli 
Spectrum a questa velocità? 

Le periferiche aggiuntive già previste 
per il futuro comprendono, oltre l’in- 
terfaccia per il disco fisso e l’espansio- 
ne di memoria, un'interfaccia parallela 
‘(chissà perché non è stata incorporata 
nella macchina) che includerà, pare, 
un generatore sonoro polifonico, un 
modem, un’interfacccia IEEE-488 (si 
tratta dell'interfaccia standard per il 
collegamento di strumentazione), un 
convertitore analogico/digitale. Non è 
invece compresa né prevista un'’inter- 
faccia per il collegamento con registra- 
tori a cassette, vista la presenza dei 
due Microdrive e la categoria di utenti 
cui la macchina si rivolge. 


Software 


Ed eccoci finalmente al pezzo forte del 
QL. Il software fornito con la macchi- 
na, tutto di produzione Psion, è infatti 
veramente notevole, e costituisce una 
potente attrattiva al suo acquisto. 
L'acquirente di un QL avrà a disposi- 
zione quattro programmi: QL Quill per 
l'elaborazione di testi, QL Abacus per 
calcoli (tipo tabellone Visicalc), QL Ar- 
chive per l'archiviazione dati (databa- 
se) ed infine QL Easel per realizzare 
qualsiasi tipo di grafici commerciali. 
Estremamente sofisticati, omogenei 
nella concezione e perciò semplici 
nell'uso, con estese facilità di help ri- 
chiamabili in qualsiasi momento, do- 
vrebbero rappresentare quanto di me- 
glio offre oggi il mercato in questo 
campo. 

Vediamone qualche esempio. Il tabel- 
lone di calcolo è strutturato in 256 ri. 
ghe e 64 colonne, per un totale di 
16.000 celle, e lavora con una precisio- 
ne di 16 cifre significative. | riferimenti 
alle singole celle possono essere fatti 
con nomi definiti dall’utilizzatore. Il 
database consente l’uso di campi e re- 
cord di lunghezza variabile. E, dulcis 
in fundo, i 4 package possono scam- 
biarsi i dati l’uno con l’altro, costituen- 
do così un unico sistema integrato. 
Nonostante la grande facilità d'uso e 
l'ampia documentazione, sia sul ma- 
nuale che negli stessi programmi, è 
stato istituito in Gran Bretagna (e spe- 
riamo avvenga lo stesso a suo tempo 
in Italia) il QLUB, con l’intento di risol- 
vere qualsiasi problema dovesse pre- 
sentarsi nell'uso del software come 
della macchina. Sarà cura del QLUB, 
inoltre, tenere i propri soci aggiornati 
inviando loro le nuove versioni dei 
package. 

Le prospettive per l'immediato futuro 
sono altrettanto interessanti, e com- 
prendono un compilatore Pascal, 
un’assembler 68000, software per 
l'emulazione di terminale e persino un 
compilatore C (a quando la compatibi- 
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lità con UNIX?). Sono inoltre previste 
le versioni su cartuccia ROM, da inseri- 
re nell'apposito connettore, dei quat- 
tro package applicativi venduti con la 
macchina. 


Conclusioni 


Potente nell’hardware, ma soprattutto 
nel software, come macchine ben più 
costose, siamo certi che questa ‘“mac- 
chinetta” da 400 sterline (poco più di 
un milione) farà molto parlare di sé. 
Con tastiera e programmi italiani co- 
me è nelle intenzioni della Rebit, im- 
portatore ufficiale, non avrà difficoltà 
ad imporsi. Siamo probabilmente di 
fronte ad una svolta nel modo di con- 


Clive Sinclair alla presentazione del 
«suo» nuovo QL. 


Vista di insieme del QL col suo «corredo». Più in alto, un particolare della macchi- 
na che evidenzia la posizione dei Microdrive. 


cepire il calcolatore personale. Potrà 
contrastare il passo a nomi illustri? 
Certo avrebbe il passo più sicuro se 
fosse maggiormente standardizzato. 
Una macchina con tastiera parzialmen- 
te non standard, sistema operativo non 


standard, linguaggio non standard e 
memoria di massa non standard potrà 
infatti suscitare qualche perplessità. 
Riuscirà il nuovo standard Sinclair ad 
imporsi? Solo il tempo potrà rispon- 
derci. 
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Programmazione 
strutturata 


di Tim Hartnell 
trad. di Marcello Spero 


Tim Hartnell ci introduce alla pro- . 
grammazione strutturata sullo 
Spectrum 


olte volte ho scritto articoli o capi- 
M toli di libri con l’intento di miglio- 
rare la capacità di programmare di co- 
loro che li avessero letti. Ma ogni volta 
che compilo un elenco delle “cose da 
fare quando si programma” o cerco di 
spiegare le medesime cose a qualcu- 
no, mi torna in mente la storiella del 
contadino. Costui, avvicinato da un 
giovane che propagandava corsi di 
agronomia per corrispondenza, si sentì 
dire: “Già ora non riesco a mettere in 
pratica tutte le cose che so sull’agricol- —__— 
tura”. 1 de === 
Così vanno le cose anche per la pro- 
grammazione. So perfettamente di 
non mettere in pratica tutte le cose che 
so, di violare spesso tutte le regole, 
buttandomi nella stesura di program- 
mi anche complessi senza tener conto 
minimamente dei criteri della program- 
mazione strutturata. ll mio suggeri- 
mento è perciò di ricordarsi sempre, 
nella lettura di questo articolo, che io 
stesso non sono convinto che quanto 
ho scritto debba essere accettato come 
la verità assoluta del grande maestro, 
con minaccia di perdizione per chi non 
la segue. Il modo migliore per acco- 
starsi a questo articolo, come a qual- 
siasi altro materiale dello stesso tipo è 
con un'attenta lettura seguita da rifles- 
sione su ciascun suggerimento appre- 
so. Quindi metterete in pratica solo le 
cose che vi saranno sembrate davvero 
utili. 


IN 


I 


Per prima cosa... 


L'idea di fondo che vorrei emergesse 
da questo articolo è che occorre avvici- 
narsi alla programmazione strutturata 
con l’idea di “tracciare il contorno” del 
programma. 

L'idea in sé è semplice, ma può esservi 
molto utile nella stesura di programmi 
complessi e involuti. E perfettamente 
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possibile, ovviamente, che voi siate già 
in grado di creare programmi anche 
molto complicati senza aver mai usato 
questo tipo di approccio, ma anche in 
questo caso vi consiglio di valutare 
queste idee, che potranno forse ren- 
dervi più semplice il lavoro. Il concetto 
fondamentale della programmazione 
strutturata sta tutto nell’idea di pro- 
grammazione “discendente”. La paro- 
la stessa vi suggerisce di iniziare defi- 
nendo a grandi linee lo scopo del pro- 
gramma che vi accingete a stendere. 
Quindi scrivete una serie di osservazio- 
ni (ciascuna potrà in seguito diventare 
una subroutine) che coprano ognuna 
delle azioni che volete far compiere al 
computer. Per chiarire meglio 
quest’ultimo concetto vi darò un esem- 
pio concreto. Eccovi i possibili passi 
per scrivere un programma di “Tris”. 
Prima, però, devo avvertirvi che il me- 
todo di programmazione strutturata 
produce listati parecchio più lunghi di 
quanto non lo sarebbero altrimenti. Ad 
ogni modo questo svantaggio è larga- 
mente controbilanciato dalla facilità di 
correzione e modifica dei programmi, 
nonché dalla loro enorme facilità di 
comprensione da parte di altri pro- 
grammatori, caratteristica che proba- 
bilmente non è propria di molti dei vo- 
stri programmi. 


INIZIALIZZAZIONE DELLA SCAC- 
CHIERA 

MOSSA DEL COMPUTER 

1 CONTROLLA SE LA CASELLA 
CENTRALE E VUOTA; ALTRIMENTI 
PROSEGUI 

2 CONTROLLA SE ESISTE UNA MOS- 
SA VINCENTE PER IL COMPUTER; 
SE C'E FALLA 

3 CONTROLLA SE L'AVVERSARIO 
UMANO PUO VINCERE CON LA 
PROSSIMA MOSSA; SE E COSI, 
BLOCCALO; n 

4 SE FINORA NON E STATA FATTA 
ALCUNA MOSSA, CONTROLLA SE E 
POSSIBILE MUOVERE A CASO; SE 
CIÒ NON È POSSIBILE, DICHIARA 
PARTITA PARI 

STAMPA LA SCACCHIERA 

RICEVI LA MOSSA AVVERSARIA 
CONTROLLA SE L'AVVERSARIO HA 
VINTO; SE SI STOP 

TORNA ALLA MOSSA DEL COMPU- 
TER 

Se analizzate per un attimo questo 
schema, vi accorgerete che delinea 
quali sono i passi che il computer per- 
correrà che decisioni dovrà prendere e 
i loro possibili risultati. 

In questo modo avete già completato il 
primo passo nella stesura del vostro 
programma di “tris”. Vi sarete accorti, 
a questo punto, di come non abbia al- 
cuna importanza che voi non sappiate 
ancora in che modo in pratica questi 
passi saranno compiuti dal vostro 
Spectrum: tutto ciò che è necessario in 
questo momento è che vi rendiate con- 
to che tutti i passi elencati dovranno, 
in qualche modo, essere compiuti. 


Quindi... 

Il passo successivo del procedimento 
consiste nel trasformare il nostro sche- 
ma in una serie di chiamate a subrouti- 
ne. In linguaggi più strutturati che non 
il BASIC dello Spectrum (come per 
esempio il BBC BASIC o il Pascal, che 
è appunto servito da modello ai tecnici 
che hanno scritto il BBC BASIC) è piut- 
tosto facile richiamare un certo nume- 
ro di subroutine dall’interno di un ciclo 
senza fine, di struttura del tipo 
DO/WHILE o REPEAT/UNTIL. Queste 
costruzioni permettono la ripetizione 
di una serie di passi del programma fi- 
no a che una certa condizione non sia 
soddisfatta, o lo stato di un determina- 
to puntatore o flag non sia mutato. 
Con il BASIC dello Spectrum dobbia- 
mo invece accontentarci del disprezza- 
to GO TO. Molte delle critiche al GO 
TO, spesso visto come il massimo in- 
sulto alla vera arte della programma- 
zione, provengono dalle prime ed in 
un certo senso rudimentali versioni del 
BASIC, dove l’unica istruzione che po- 
teva seguire un IF/THEN era GO TO. 
Questa situazione comportava salti 
continui, portando ad un programma 
tutto “spaghettato” ed orrendamente 
difficile da seguire (il BASIC fornito 
con la versione standard del TI 99/4A 
possiede tuttora questa limitazione, 
come dimostrano i programmi incredi- 
bilmente involuti che potete vedere in 
qualsiasi libro per il TI). 

Oggi, d'altra parte, possiamo fare qual- 
siasi cosa, dopo un IF/THEN (compre- 
se stranezze come un LIST). Ma le vec- 
chie abitudini, si sa, sono dure a mori- 
re e la cattiva fama del GO TO conti- 
nuerà ancora per un po’. La cosa co- 
munque non ci interessa, poiché ab- 
biamo intenzione di produrre pro- 
grammi chiari e ben strutturati e il GO 
TO non interferisce in questi scopi. 
Torniamo al secondo stadio del nostro 
procedimento. E possibile trasformare 
il nostro schema in una serie di chia- 
mate a subroutine inserite in un ciclo 
senza fine chiuso da un GO TO, come 
mostrato in figura 1. 

A questo punto, come vedete, abbia- 
mo la struttura portante di un pro- 
gramma di “tris”, anche se non sappia- 
mo ancora come questo programma 
funzionerà in pratica. Possiamo ora 
iniziare la sua stesura vera e propria, 
pezzo per pezzo. 


Questo tipo di approccio possiede altri 
due importanti vantaggi. Se ci trovia- 
mo di fronte qualcosa che non possia- 
mo, a questo stadio, programmare con 
esattezza (ad esempio il criterio con 
cui il computer potrà stabilire chi ha 
vinto), possiamo semplicemente met- 
tere al posto della routine corrispon- 
dente una PRINT “CONTROLLO PER 
IL VINCITORE”, che renderà funzio- 
nante il programma mentre noi conti- 
nuiamo a lavorarci sopra. Infatti, ogni 
volta che dovrebbe effettuare il con- 
trollo, il computer stamperà “CON- 
TROLLO PER IL VINCITORE”. Il se- 
condo vantaggio lo troviamo alla fine 
dello stadio più frustrante, e per molti 
aspetti meno gratificante, della pro- 
grammazione. Sebbene riesca ad arri- 
vare piuttosto in fretta a far funzionare 
il mio programma (anche se il mio pri- 
mo programma di scacchi mi tenne 
occupato per quasi sei mesi), passare 
dalla fase di “programma funzionante” 
a quella di “programma capace di fron- 
teggiare senza problemi qualsi situa- 
zione” può portarvi via lo stesso tempo 
che avete impiegato per arrivare alla 
prima versione del programma. Vedre- 
te, comunque, che costruisce un pro- 
gramma nel modo descritto in questo 
articolo può semplificare in modo con- 
siderevole la fase di correzione. 
Potrebbe capitarvi, ad esempio, che 
nel vostro programma di “tris” il com- 
puter tenda ad ignorare l'angolo in 
basso a destra della scacchiera anche 
quando una mossa in questa posizione 
potrebbe farlo vincere, o potrebbe non 
bloccare la vittoria avversaria. Dal ci- 
clo delle subroutine che abbiamo crea- 
to sappiamo che la mossa del compu- 
ter viene fatta fra le linee 1000 e 1999. 
Questa considerazione restringe di 
molto il vostro campo di ricerca. Se 
siete stati così abili da costruire ciascu- 
na routine come un sistema di altre su- 
broutine, ognuna costruita secondo lo 
stesso metodo visto per le subroutine 
principali, sarà ancora più semplice 
rintracciare l'errore. 


Sembra difficile 

Esaminiamo adesso questa idea, co- 
struire ciascuna subroutine come un 
insieme di altre subroutine, un po’ più 
in particolare. Ci occuperemo della su- 
broutine che inizia in linea 1000, quel- 
la cioè in cui il computer sceglie quale 


Un esempio di programmazione strutturata. 
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mossa fare, essendo questa la più im- 
portante e difficile da scrivere. 

La subroutine potrebbe avere questo 
svolgimento mostrato in figura 2. 
Programmi costruiti usando un ciclo 
illimitato accoppiato a subroutine 
strutturate a “subroutine dentro le su- 
broutine” può, come vi ho già detto, 
rendere i programmi molto più lunghi 
del normale. Sullo Spectrum, comun- 
que, non ci sono grossi problemi di 
memoria (a differenza dello ZX 81 sen- 
za espansione di memoria, dove conta- 
re i Byte era l’attività dominante). La 
maggiore lunghezza dei listati, quindi, 
sarà più che ripagata dalla chiarezza 
guadagnata dai vostri programmi e dal 
minor tempo che impiegherete per 
produrre programmi corretti di cui an- 
dare fieri. 


Infine... 


Infine, permettetemi di suggerirvi 
qualche altro schema, che potrete pro- 
vare a trasformare in programmi com- 
pleti. Questo vi aiuterà a farvi un’idea 
più completa del funzionamento di 
questo metodo. 

Come primo esempio consideriamo il 
famoso programma “Life” di John 
Conway, che simula nascite, vita e 
morte di una colonia di cellule. Lo 
schema potrebbe essere semplicemen- 
te questo: 


INIZIALIZZAZIONE 
DISEGNO DELLA COLONIA 
AGGIORNAMENTO 
RITORNO AL DISEGNO 


Senz'altro penserete che sto prenden- 
dovi in giro, poiché lo schema non 
sembra fornire molti suggerimenti cir- 
ca la stesura del programma. Suppo- 
nendo però di conoscere le regole, e le 
vedremo fra un momento, sarete in 
grado di produrre un programma di 
buon livello partendo da questo sem- 
plice schema. 

Eccovi le regole, che suppongono le 
cellule in una griglia e l'evoluzione di 
ogni cellula legata allo stesso dello ot- 
to cellule che possono circondarla. Se 
la posizione centrale è vuota, e ci sono 
esattamente tre cellule nelle posizioni 
intorno, una nuova cellula verrà dise- 
gnata in questa posizione alla genera- 
zione successiva. Se invece la posizio- 
ne centrale è occupata, e ci sono quat- 
tro cellule nelle posizioni intorno, alla 
generazione successiva la cellula che 
la occupa morirà. La stessa sorte le 
toccherà se tutte le posizioni intorno a 
lei sono vuote. Infine, quando ci sono 
solo due cellule nelle posizioni attorno 
a quella considerata la situazione resta 
immutata. Vediamo ora lo schema di 
un gioco tipo “abbatti il muro”, che 
potrete utilizzare per realizzare un vo- 
stro programma: 


INIZIALIZZAZIONE 
STAMPA RACCHETTA, PALLINA E 
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MATTONI 

MUOVI LA RACCHETTA 

MUOVI LA PALLINA (FALLA RIMBAL- 
ZARE SE E NECESSARIO) 

SE LA PALLINA HA URTATO UN 


MATTONE, ELIMINALO ED AGGIOR- 


NA IL PUNTEGGIO 

SE LA PALLINA È AL LIVELLO DEL- 
LA RACCHETTA, CONTROLLA SE 
QUESTA PUÒ COLPIRLA; 

SÈ È COSì VAI A “STAMPA RAC- 
CHETTA, PALLINA E MATTONI”; 
ALTRIMENTI VAI A “RIDUCI IL NUME- 
RO DI PALLE DISPONIBILI” 

SE IL NUMERO DI PALLINE DISPONI- 
BILE È MAGGIORE DI ZERO, 


VAI A “STAMPA RACCHETTA, PALLI. 
NA E MATTONI” 


Vi accorgerete che iniziando in questo 
modo l’intero processo di costruzione 
di un programma diventa di gran lun- 
ga più semplice di quanto non sarebbe 
stato altrimenti. Vi accorgerete anche 
che impiegherete il vostro tempo in 
maniera più produttiva di quanto non 
avreste fatto gettandovi nella stesura 
del programma senza alcuno schema 
preliminare. 

Ignorate perciò il giovane venditore, e 
cercate oggi stesso di programmare al 
livello cui siete in grado. 


LET MOSSA =0:REM SE DIVENTA 1 VUOL DIRE 


CHE È STATA TROVATA UNA MOSSA VALIDA 


GOSUB 1200:REM CONTROLLA SE LA CASELLA 


GOSUB 1400: REM CONTROLLA SE ESISTE UNA 


GOSUB 1600:REM CONTROLLA SE OCCORRE 


BLOCCARE UNA POSSIBILE VITTORIA AVVERSA- 


GOSUB 1800:REM CONTROLLA SE È POSSIBILE 


REM UN RITORNO CON MOSSA=0 VUOL DIRE 


1000 REM MOSSA DEL COMPUTER 
1010 
1020 ( 
CENTRALE È VUOTA 
1030 IF MOSSA = 1 THEN RETURN 
1040 
POSSIBILE MOSSA VINCENTE 
1050 IF MOSSA = 1 THEN RETURN 
1060 
RIA 
1070 IF MOSSA = 1 THEN RETURN 
1080 
UNA MOSSA QUALSIASI 
1090 IF MOSSA = 1 THEN RETURN 
1100 
CHE NON ESISTONO MOSSE POSSIBILI 
1110 RETURN 


Il contenuto di una subroutine è costituito da tante altre piccole subroutine. 
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di Marcello Spero 


Le interruzioni, 
teoria e pratica sullo 
ZX Spectrum 


Questo articolo si propone di far cono- 
scere l’uso della tecnica di interruzio- 
ne. Questo potente strumento softwa- 
re, a torto considerato di esclusivo in- 
teresse specialistico, può risultare 
estremamente utile a quanti vogliano 
ottenere “qualcosa in più” dal proprio 
elaboratore; infatti, pur richiedendo 
l'uso del linguaggio macchina per es- 
sere utilizzato, può dare grandi vantag- 
gi anche in unione (e all’interno) di 
programmi BASIC. 

Per queste ragioni l'articolo è stato 
strutturato in modo da essere utilizza- 
to a diversi livelli: nella sua parte gene- 
rale, e per forza di cose a carattere in- 
troduttivo, può interessare chiunque 
sia curioso o voglia capire di cosa si 
tratta; i lettori interessati alle applica- 
zioni di questa tecnica per lo ZX Spec- 
trum sono invitati a proseguire la lettu- 
ra: per poter utilizzare le routine pro- 
poste non è necessaria la conoscenza 
del linguaggio macchina. A quanti in- 
vece interessati alle problematiche del 
I/m dello Z80 sono dedicati alcuni bre- 
vi approfondimenti. 

Vediamo innanzitutto cosa intendiamo 
quando parliamo di “interruzione”. 
Tutti noi conosciamo l’uso e lo scopo 
dei sottoprogrammi, o subroutine che 
dir si voglia: una procedura (insieme di 
istruzioni) il cui uso sia necessario più 
volte nel corso di un programma, vie- 
ne richiamata mediante un’apposita 
istruzione, detta appunto “chiamata 
della subroutine” che compare nei 
punti del programma ove ne è richie- 
sto l'intervento. 

Una volta che questa sia stata eseguita, 
un'istruzione di “ritorno dalla subrouti- 
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ne”, posta in coda alla stessa, farà in 
modo che l'esecuzione del programma 
principale riprenda dall’istruzione suc- 
cessiva a quella dichiarata. Questo di- 
scorso vale in generale per tutti i lin- 
guaggi di programmazione, seppure 
con le ovvie differenze pratiche. Dover 
collocare in punti determinati del pro- 
gramma delle istruzioni di chiamata 
implica però che noi vincoliamo il 
‘momento’ della chiamata stessa ai 
tempi di esecuzione del programma 
principale. In altre parole, se abbiamo 
una chiamata a subroutine in linea 500 
ed un'altra in linea 1500, non ci impor- 
ta sapere “quando”, rispetto ad un 
tempo esterno, avverranno queste due 
chiamate, nè quanto tempo passerà fra 
la prima e la seconda: ci basta sapere 
che avverranno esattamente in quei 
due punti del programma principale. 
E se la subroutine contenesse delle 
istruzioni che richiedono dati ad un 
congegno esterno che li rende disponi- 
bili solo in determinati “momenti”, 
non dipendenti dai tempi di esecuzio- 
ne del nostro elaboratore? 

O se, viceversa, fosse il nostro elabora- 
tore a dover compiere durante la su- 
broutine, operazioni che devono esse- 
re svolte in momenti di tempo ben pre- 
cisi, o ad intervalli regolari? 

Ecco che non sapremmo più dove 
mettere le istruzioni di chiamata. In ca- 
si come questi sarebbe molto utile che 
le chiamate fossero determinate non 
da un'istruzione presente nel program- 
ma principale, ma dal ricevimento da 
parte dell’elaboratore di un segnale 
esterno, che gli venisse inviato a tempi 
prestabiliti. Bene, le interruzioni sono 


esattamente questo: chiamate di una 
subroutine in risposta ad un apposito 
segnale esterno. 

Facciamo ora un altro passo avanti; se 
le chiamate ad una determinata su- 
broutine attuate per mezzo di un'inter- 
ruzione non dipendono da istruzioni 
all’interno del programma principale, 
la medesima subroutine potrà essere 
utilizzata in programmi diversi, che 
non necessiteranno di alcuna modifi- 
ca, se non l’aggiunta della subroutine 
stessa. D'altra parte, se la subroutine, 
che possiamo ora chiamare sottopro- 
gramma interrompente (Interruption 
Handling Routine), non modifica i dati 
in corso di elaborazione da parte del 
programma principale, questo potrà 
proseguire come se non fosse succes- 
so nulla, per poi sfruttarne, quando ne 
avrà la necessità, i prodotti. E evidente 
a questo punto come l’uso delle inter- 
ruzioni sia funzionale con sottopro- 
grammi che lavorano in maniera indi- 
pendente dal programma principale, e 
soprattutto non dipendono, per le loro 
elaborazioni, dall’avvenuta esecuzione 
da parte di questo di determinate fasi. 
Un tipico impiego, a livello di personal 
computer, è infatti nella lettura della 
tastiera da parte del sistema operativo 
della macchina. Questa operazione 
può essere svolta in maniera del tutto 
indipendente, e le informazioni così 
ottenute (cioè il o i tasti eventualmente 
premuti) vengono immgazzinate con- 
venientemente in memoria (nel cosid- 
detto ‘buffer di tastiera”) per essere re- 
cuperate se e quando il sistema si tro- 
verà nella necessità di ottenere, per 
proseguire le elaborazioni, questa in- 
formazione. 

Un tale procedimento può sembrare 
impreciso, ma se teniamo conto che la 
lettura della tastiera è un'operazione 
rapidissima, e viene ripetuta decine di 
volte ogni secondo, ci rendiamo conto 
che il sistema avrà sempre dati aggior- 
nati. 

Passiamo ora ad esaminare come lo 
ZX Spectrum si serve delle interruzioni 
per il suo funzionamento, e cosa pos- 
siamo fare per servircene a nostro van- 
taggio. 

Innanzitutto diciamo che i progettisti 
dello Spectrum hanno dovuto operare , 
una scelta fra i vari “modi di interruzio- 
ne” previsti dal costruttore della CPU, 
lo Z80A, per utilizzare quella che più si 
adattava alle loro necessità. Il micro- 
processore Z80A (come i suoi fratelli 
Z80 e Z80B, che differiscono solo nella 
velocità di funzionamento) possiede 
infatti due diversi tipi di interruzione: 
l'interruzione mascherabile e l’interru- 
zione non mascherabile. Il primo tipo 
può essere eseguito o ignorato a se- 


conda che il microprocessore abbia 
eseguito le istruzioni (in linguaggio 
macchina) El (che abilita le interruzio- 
ni) o DI (disabilita le interruzioni). Il se- 
condo tipo, invece, non può mai essere 
ignorato. 

Del primo tipo di interruzione esistono 
tre “modi” diversi, in sostanza metodi 
diversi di far conoscere al micropro- 
cessore la posizione in memoria del 
sottoprogramma da chiamare. Il se- 
condo tipo di interruzione ha invece un 
solo modo possibile. Chi fosse interes- 
sato ad una conoscenza più approfon- 
dita dei vari tipi e modi di interruzione 
della famiglia Z80 può trovare qui a 
fianco alcune informazioni; per gli altri 
è sufficiente sapere che nell'uso nor- 
male si fa ricorso all’interruzione ma- 
scherabile, mentre quella non masche- 
rabile, d'altronde poco versatile, viene 
riservata per la gestione di eventi ‘‘ca- 
tastrofici”, quali cadute di tensione e 
simili. Lo ZX Spectrum fa uso delle in- 
terruzioni per compiere due operazio- 
ni: lettura della tastiera (con aggiorna- 
mento della variabile di sistema LAST 
K) e aggiornamento dell'orologio (va- 
riabile di sistema FRAMES). Le due 


operazioni vengono svolte nel corso 


della stessa interruzione, e quindi 
nell’ambito di una sola subroutine in- 
terrompente. Per questo è stato scelto 
di far funzionare la CPU nel modo di 
interruzione |, cioè il più semplice, che 
consente di chiamare una sola subrou- 
tine e non richiede perciò alcun segna- 
le esterno di indirizzamento. L'unico 
segnale esterno necessario è quello di 
richiesta dell’interruzione, che viene 
inviato alla CPU dall’ULA (il grosso in- 
tegrato che gestisce i rapporti con 
l'esterno) al ritmo di 50 volte al secon- 
do. L'ULA ricava questo impulso dalla 
frequenza della rete elettrica. Ora che 


abbiamo visto qual è l’impiego norma- 
le delle interruzioni nello ZX Spec- 
trum, vediamo cosa è possibile fare 
per ottenere che altre operazioni ven- 
gano portate avanti sotto interruzione. 
Innanzitutto ci poniamo il vincolo di 
non apportare alcuna modifica né ag- 
giunta all'hardware esistente: operando 
solo su software potremo sempre stac- 
care la spina e ripristinare le condizio- 
ni originali. Detto questo passimo ad 
esaminare le modifiche possibili per 
conquistarci uno “spazio” ove inserire 
una nostra subroutine. Rimanendo nel 
modo 1 questo non è possibile, perché 
l’unico posto disponibile è già occupa- 


Tipi e modi di interruzione della famiglia Z80 
La famiglia Z80 possiede due tipi di interruzione: mascherabili e non maschera- 
bili, a seconda che possano o meno essere ignorate dal microprocessore che le ri- 


ceve. 


Interruzioni mascherabili 


Sono disabilitate: all'accensione, quando il modo di interruzione viene modifica- 
to con una istruzione IM, dopo ogni interruzione e dopo l'esecuzione dell’istruzio- 


ne DI (Disable Interruptions). 


Perché siano abilitate deve essere eseguita una istruzione El (Enable Interrup- 
tions). Si articolano in tre modi, selezionabili con istruzioni IM. 
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to dalla subroutine originale, e tra l’al- 
tro corrisponde ad un indirizzo della 
ROM, pertanto di contenuto modifica- 
bile. Il modo 0 in teoria ci consente di 
scegliere fra 8 indirizzi diversi, ma pur- 
troppo nel nostro caso questi corri- 
spondono tutti a locazioni di memoria 
all’interno della ROM, e quindi già oc- 
cupate da routine del sistema. 

Ci resta il modo 2: può essere la nostra 
soluzione, poiché consente di chiama- 
re subroutine situate in una posizione 
qualsiasi in memoria, e quindi anche 
in RAM. C'è però un problema; in que- 
sto modo la CPU si aspetta dall'esterno 
metà dell'indirizzo di memoria in cui 
troverà l’indirizzo a cui trovare la su- 
broutine (è un pò come una caccia al 
tesoro...); l’altra metà (quella superio- 
re) la trova immagazzinata nel registro 
I (vettore d'interruzione). La soluzione 
è comunque a portata di mano: se, in- 
fatti, non forniamo alcun indirizzo 
dall'esterno, verrà assunto come tale il 
valore massimo possibile, cioè FF 
Hex, pari a 255 decimale. Variando 
quindi il valore di |, potremo scegliere 
tra tutte le locazioni di memoria che 
terminano con FF: in una di queste 
porremo il valore dell’indirizzo di ini- 
zio di una subroutine scritta da noi per 
compiere le operazioni che ci interes- 
sano. 

Per la frequenza di interruzione, inve- 
ce, non abbiamo scelta: infatti la linea 
di interruzione è collegata con l’ULA 
che, come abbiamo visto, invia un se- 
gnale ogni 20 msec. 

Infine, una considerazione importante 
per conservare il corretto funziona- 
mento del sistema; se ad ogni richiesta 
di interruzione la CPU eseguirà la no- 
stra subroutine, la tastiera non verrà 
più letta, né l'orologio aggiornato. Per 
includere queste operazioni fra quelle 
eseguite durante l'interruzione, basta 
che la nostra subroutine non termini 
con una istruzione di ritorno al pro- 
gramma principale (RET) ma con un 
salto verso la “vecchia” subroutine in- 
terrompente, posta nella ROM, al ter- 
mine della quale si trova ovviamente 
una RET che provocherà il ritorno al 
programma principale. 

Con questi accorgimenti, e costruendo 
la nostra subroutine in modo che non 
danneggi nulla all’interno del sistema, 
potremo ottenere che alcune operazio- 
ni di nostra scelta siano portate avanti 
ogni 20 msec. durante tutto il funzio- 
namento della macchina, cioè sia 
mentre è in corso di elaborazione un 
programma che in fase di scrittura e 
correzione (editing) del programma 
stesso. Ovviamente queste operazioni 
dovranno essere di breve durata, dicia- 
mo meno di 5 msec., per non rallenta- 
re apprezzabilmente il funzionamento 
dell’elaboratore. 

Nella seconda parte vedremo una pro- 
posta pratica per utilizzare questo me- 
todo: un orologio con'ore, minuti e se- 
condi. 

16 BATTERIA AR IRE ART NITTI I (segue) 
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Modo 1 

È il più semplice. Viene selezionato con l’istruzione IM1, seguita da EI per abilita- 
re le interruzioni. In questo modo quando il microprocessore riceve il segnale di 
interruzione sulla linea apposita viene eseguito un salto a sottoprogramma verso 
l'indirizzo di memoria 0038 Hex. Qui dovrà essere presente una subroutine adat- 
ta, regolarmente conclusa da un'istruzione RET che provocherà il ritorno al pro- 
gramma principale. 

Modo 0 

AI ricevimento del segnale di interruzione, il microprocessore risponde con un 
segnale di “interruzione riconosciuta” su di una linea apposita. In risposta a que- 
sto suo “OK” si aspetta il codice di una istruzione lunga un byte sul bus dei dati. 
Normalmente questo sarà uno dei codici delle istruzioni RST n, dove n può esse- 
re una delle otto locazioni di memoria 0,8,10 Hex,20 Hex,28 Hex,30 Hex,38 Hex. 
RST equivale a CALL nn (è cioè un'istruzione di chiamata di una subroutine) ma è 
lunga un solo byte invece di tre. In particolare RST 38 Hex (codice FF) chiama la 
locazione 38 Hex, come nel modo 1, ed è quanto succede se non viene inviato al- 
cun codice in risposta al segnale. E il modo standard all'accensione, e pertanto 
richiede solo una istruzione El per funzionare. Può comunque essere selezionata 
in ogni momento con l’istruzione IMO, seguita da El. 

Modo 2 

E il più potente e sofisticato e consente di chiamare una subroutine a qualsiasi in- 
dirizzo di memoria. 

Per selezionarlo occorre far eseguire la sequenza: 


IM 2 
LD A, n 
LD I, A 
EI 


carica il valore n in I, vettore dell’interruzione 


Al ricevimento del segnale di interruzione il microprocessore, dopo aver inviato 
un segnale di “OK”, leggerà il codice presente sul bus dei dati e lo considererà il 
byte di ordine minore di un indirizzo di memoria il cui byte di ordine maggiore è 
il contenuto di I; prenderà il contenuto di questo indirizzo e chiamerà la subrouti- 
ne presente nella posizione di memoria da questa specifica. 

Non inviando alcun indirizzo sul bus dei dati, il microprocessore vi leggerà, come 
nel caso del modo 1, il valore FF, che combinerà con il contenuto di |. 


Interruzioni 
non mascherabili 


Sono comandate da una linea diversa da quelle mascherabili, e sono sempre abi- 
litate. Il ricevimento di un segnale sulla loro linea provoca sempre e solo un salto 
a subroutine all’indirizzo 0066Hex. 

Sono di uso limitato, in genere in risposta a situazioni di emergenza. 

Come viene ottenuta l'emissione sonora nello Spectrum 


UN ERRORE PRESENTE NELLA ROM DELLO SPECTRUM 


Sebbene non venga utilizzata dallo Spectrum nella sua forma standard, esiste in 
ROM una routine che si occupa di una eventuale interruzione non mascherabile, 
qualora la linea venga attivata. Il suo contenuto è: 

0066 RESET pus af 

pus hl 

Id hl, (NMIADD) 
Id a,h 

or l 

jr nz, NO-RES 

ip (hl) 


pop hl 

pop af 

ret 

e il suo significato dovrebbe essere: 

se la variabile di sistema NMIADD (è quella all'indirizzo 23728, cui il AE 
non dà nè un nome nè uno scopo) è a zero non fare niente; se ha un valore diver- 
so, salta all'indirizzo rappresentato dal suo valore. Purtoppo un errore di pro- 
grammazione della ROM ha fatto sì che l’istruzione 

jr z,NO-RES 


0070 NO-RES 


diventasse 

jr nz,NO-RES 
rendendo inutile tutta la routine. Infatti l’effetto è ora: se NMIADD è zero salta 
all'indirizzo corrispondente (cioè zero); se ha valori diversi non fare nulla. In que- 
sto modo l’effetto è analogo a quanto si potrebbe ottenere attivando la linea di 
RESET, oltretutto in maniera più direttaa Pazienza... 
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Piccola guida 
all’input 
dei programmi 


programmi pubblicati da SUPERSINC sono stati 
I accuratamente provati e verificati. In questo mo- 
do speriamo di avere ridotto al minimo la possibilità 
di errori. 
Nel caso comunque un programma dovesse presen- 
tare malfunzionamenti, pubblicheremo le modifiche 
da apportare in uno dei numeri immediatamente suc- 
cessivi della rivista. 
Per utilizzare i programmi pubblicati è sufficiente di- 
gitare i relativi listati sulla tastiera del calcolatore. 
Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo 
grafico, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici 
predefiniti (i tasti numerici da 1 a 8 e gli stessi ‘‘shif- 
tati’) e una serie di caratteri definibili dall'utente 
nell’ambito di un programma (le lettere da A a QU). 
In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrasse- 
gnato dalla lettera G lampeggiante) premendo con- 
temporaneamente i tasti CAPS-SHIFT e 9. 
Nei nostri listati i caratteri grafici predefiniti sono in- 
dicati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


{G1} n 
{62} 
{63} 
{G4} Lol 


# 
bia) 


Se non siete 
già in modo 
G, entrateci 


Se dovete 
uscire dal 


schiacciando 

contempora- 
neamente 

CAPS SHIFT 


modo G, 


SHIFT schiacciate 9 


SHIFT 


SHIFT 


CAPS 
SHIFT 


CAPS 
SHIFT 


SHIFT 


E° "ii bPldSa: I° 


| | 4 
$ E 5 SES cell" 
> di => 


GENOA 
alla "iamia | Ni "e 
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Ad esempio {G4} significa che occorre digitare il ta- 
sto 4, con il cursore in modo grafico. 
Analogamente la codifica SG, seguita da un numero 
da l a 8, significa che occorre digitare il relativo ta- 
sto numerico premendo contemporaneamente il ta- 
sto CAPS-SHIFT. 

Ad esempio quando si trova la codifica {SG2}, occor- 
re premere il tasto 2 contemporaneamente al tasto 
CAPS-SHIFT, ovviamente con il cursore in modo gra- 
fico. In entrambi i casi precedenti, quando un simbo- 
lo grafico deve essere digitato più volte, i caratteri G 
o SG della codifica sono preceduti da un numero che 
specifica quante volte va premuto il tasto grafico in- 
dicato. 

Così ad esempio {8G5] significa che il tasto grafico 5 
va digitato 8 volte e analogamente [4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battu- 
ti 4 volte. 

| caratteri grafici definibili (le lettere da A a U in mo- 
do grafico) hanno una codifica semplificata: la lette- 
ra corrispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, 
una A sottolineata, occorre entrare in modo grafico 
(al solito premendo contemporaneamente i tasti 
CAPS-SHIFT e 9) e quindi digitare semplicemente il 
tasto che contrassegna la lettera A. 


Quando leggete Premete 


ai RSI 


Simbolo grafico 
definito nel 
programma in uso. 


Se non siete 
già in modo 
G, entrateci 
schiacciando 


Se dovete 
uscire dal 


modo G, 
schiacciate 9 


x 


IR IM IRUIHITIOIMIH]IN NIDO jd 


contempora- 
neamente 
CAPS SHIFT 
e9 


ICH [MIA o]vO|z 


di Wolfgang Huebl 
trad. e adatt. Ivan Cerè 


gobiettivo di questo gioco è di di- 
L fendere la vostra base da un attac- 
co missilistico alieno. 

Quando il programma parte si vedrà il 
comandante della base protetto dagli 
scudi sulla parte destra dello schermo. 
Alla base dello stesso appare un can- 
none laser, immobile, che spara diago- 
nalmente, con una angolazione fissa. Il 
vostro compito è distruggere i missili 
che attraversano lo schermo impeden- 
dogli di raggiungere la vostra base. 

Ci sono due tipi diversi di missili: quel- 
li neri e quelli gialli. Dovete premere la 
‘p’ per distruggere i missili neri, la ‘q’ 
per distruggere quelli gialli. 

Potete sparare una sola volta ad ogni 
missile. Guadagnerete 1 punto per 
ogni missile nero e 2 punti per ogni 
missile giallo. Se due missili vengono 
colpiti contemporaneamente, guada- 
gnerete 6 punti. 

Se i missili raggiungono gli scudi ne 
ditruggeranno una parte. Il gioco può 


TR _ E _ IA coi dote e_t ei 


Linea 
10,25,1000 
30-80 
105,106,500 
107-170 
200-250 
300-350 
500-575 


700-830 


700 


Cc \ è eraezn0 e tr e_ a 


terminare con la resa dei nemici, oppu- 
re con la morte del comandante della 
base. 

Ci sono 3 livelli di difficoltà con i quali 
varia il punteggio che si deve ottenere 
affiché il nemico si arrenda. 

Ecco ora una descrizione del program- 
ma: 


Commento 


Contiene la routine per la definizione dei caratteri grafi- 
cl. 

Contiene una routine per stampare le istruzioni e per 
scegliere il livello di difficoltà. 

Contiene la routine per stabilire dove i missili appariran- 
no. 

Contiene una routine per il movimento dei missili e per 
permetterci di sparare. 

Contiene una routine che distrugge una parte degli 
schermi quando un missile lo colpisce. 

Contiene una routine per fare muovere il missile e per 
controllare se c'è qualcosa sul suo cammino. 

Contiene una routine che permette a due missili di vola- 
re assieme e permette a voi di sparare due volte. 
Contiene una routine per il movimento dei due missili e 
per controllare se c'è qualcosa sul loro cammino. 
Contiene una routine per quando il comandante viene 
colpito. 


Attacco missilistico 
versione per ZX Spectrum 16K/48K 


10 FOR n=0 TO 39 

20 READ d: POKE USR "A"+n,d 
25 NEXT n 

30 BORDER 5: PAPER 5: CLS 


SUPERSINC® 1/84 - 23 


40 


50 


52 


54 


56 


58 


60 
62 
64 


66 


68 


70 


PRINT AT 0,4; 


Sn ds" 
{22SG8}"'AT 1,4; PAPER 6; 
INK 1l;j"{SG8}ATTACCO MISSIL 


ISTICO{SG8}"'AT 2,4; 
"{22SG8}" 

PRINT "Difendi la tua base 
(e la tua vita) da un att 


INK ll; 


acco mmissili- stico" 
PRINT : PRINT "Usa le tue a 
rmi a raggio per distrug 


gere i missili" 
PRINT : PRINT "Abbatti i mi 
ssili neri con la p', e 
guadagnerai un punto" 
PRINT : PRINT "Usa invece 1 
a 'q' per i missili gialli" 
‘"Un colpo vale due punti" 
PRINT : PRINT "Qualche volt 
a affronterai due missili 
per volta.Colpendoli en 
trambi guadagnerai 6 punti" 


PRINT : PRINT "Premi un tas 
to per continuare" 
IF INKEY$S="" THEN GO TO 62 


CLS : PRINT "Se un missile 
colpisce la tua base una 
parte degli scudi pro- tett 
ivi verra' disintegrata" 


PRINT : PRINT "Se vieni dis 
trutto il gioco finisce 
": PAUSE 100 

CLS : PRINT : PRINT "Ora sc 
egli il livello di d 
ifficolta' 

(Premi ::lL;2 o: 3" 

LET 1$=INKEYS 
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1 


rie 
74 


76 
78 


80 


101 


102 


104 


105 


106 


107 
130 


140 


144 
145 


147 
150 


160 
170 


IF S<}NI* AND j>5"3" 

AND 1$<>"3" THEN 

GO TO 70 

LET 1=VAL 1$S 
UDba:: PRINT "Livello “;1:": 
"eebevi fare ";10+20*1;" pu 
nti per fare arrendere il 
nemico" 

PRINT : PRINT "Hai un solo 
colpo per missile" 
PRINT : PRINT "Premi 
r iniziare" 

IF INKEY$<>"o" AND 
INKEY$<>"O" THEN GO TO 8 

0 | 

BORDER 1: PAPER 5: LET £=0: 
CLS 
LET z=0: LET h=12.-1: 

PRINT AT 0,0;"Livello ";l: 
DRAW INK 5;57,16: PRINT 
AT 20,6;"CD": PRINP'UNT'I1,95 

;"{3SG8}": PRINT AT h,29; 
INK 2;"{3SG8}": PRINT AT h 
+1,29; INK 2;"{2SG8}"=: 
PRINT INK l;"A": PRINT... 
AT h+2,29; INK 2;"{2SG8}">- 
PRINT INK DE dh PRINT 
AT h+3,29;-« INK, 23".(:3 568)" 
IF ATTR (18,8)=47 THEN 
DRAW INK 5;150,150: 
DRAW INK 5;-150,-150 
IF INT (RND*5)>3 THEN 
GO TO 500 


LET s=1: LET x=INT (RND*z/( 
9-1)): LET y=+INT (RND*8): 

LET £f=6*INT (RND+0.25) 
PRINT AT y,x; INK £;"E" 

IF s=1 AND INKEYS="p" 

THEN DRAW 150,150: BEEP 0 
e-01,40% DRAW: INK 5>-150.,-1 
50: LET s=0 
IF s=1 AND INKEYS="q" 

THEN DRAW 150,150: BEEP 0 
«01,30: DRAW INK 7:-150,-] 
50: LET s=0 
LET e=ATTR (y,Xx) 


'o' pe 


IF f=0 AND e=45 THEN 
GO TO 200 
IF f=6 AND e=47 THEN 
GO TO 200 


PRINT AT y,x;" ": LET x=x+1 


IF x>28 THEN GO TO 300 
GO TO 107 


200 


205 
206 


BORDER 6: PRINT AT 10,17; 
INVERSE l; FLASH l; INK 2; 
"COLPITO!": BORDER 1 


BEEP 1,-20: LET z=z+1+£/6 
IF z>=10+20*1 THEN 
BORDER 4: PRINT AT 10,7; 
FLASH 1l;"IL NEMICO SI ARRE 
NDE": PRINT AT 20,12; "Punte 
ggio finale:";z: FOR b=0 
TO 10: BEEP _..3,be NEXT Db: 
GO SUB 2000 
PRINT AT 10,16;" ta - 
PRINT AT 40441" 
PRINT AT y,x;" " 
GO TO 104 
LET a=ATTR (Y,x) 
IF a=41 THEN- PRINT AT y,x; 
INK 0;"{SG8}": GO TO 900 
IF a<>40 AND a<>45 
THEN PRINT AT Y,X; 
"{SG8}": BEEP 0.5,-5: 
PRINT AT y,x; INK 5;"{SG8} 
"> GOZSTO-104 
PRINT-AT y,x; INK £;UE" 
LET x=x+1 
PRINT AT y,x-1l;" " 
IF x=32 THEN GO TO 104 
GO TO 300 
LET f=0: LET e0=1l: LET e2=1 
® LET s=2: LET x=INT (RND*5 
): LET x2=INT (RND*5): 
LET y=8+INT (RND*8): LET y 
2=8+INT. (RND*8) 
IF x=x2 AND y=y2 THEN 
GO TO 500 


INK 6; 


IF e0<>0 THEN PRINT AT y 
ri Nan 

IF e2<>0 THEN PRINT AT y 
2,x25"E" 


IF s>0 AND INKEYS$="p" 


THEN DRAW 150,150: BEEP 0 


«01,40% DRAW INK 5;-150,-1 
50: LET s=s-1 

IF ATTR (y,x)=45 THEN 

LET e0=0 


IF ATTR (y2,x2)=45 THEN 
LET e2=0 

PRINT AT vy.,x;" ": PRINT 

DT 2x2» 

LET x=x+1: LET x2=x2+1 
IF e0=0 AND e2=0 THEN 


LET z=Zz+5: GO TO 200 
IF x>28 OR x2>28 THEN 
GO TO 700 
GO TO 510 


700 


720 


740 


743 
746 


748 
780 


790 
800 
810 
820 


830 
900 


1000 


2000 


2207 
2208 
2209 
2210 


&L 


2212 


IF (e0=1 AND ATMER (y,x)=4l1) 
OR (e2=1 AND ATTR (y2,x2)= 
41) THEN GO TO 900 

IF e0=1 AND ATTR (y,Xx)<>4 

O AND ATTR (y,x)<>45 
THEN PRINT AT yY,X; 
"{SG8}": BEEP 0.5,-5: 
PRINT AT y,x;" ": LET e0=0 


INK 6; 


IF e2=1 AND ATTR (y2,x2) 
<>40 AND ATTR (y2,x2) 

<>45 THEN PRINT AT y2,x2 

s. INK 6&s*{868}"t BREEP_0,5,- 
Ss PRINT-AT y2-bedi”" "> 

LET e2=0 


IF e0<>0 THEN “PRINT AT y 
6363 ug" 

IF e2<>0 THEN PRINT AT y 
2,002: "E" 


LET x=x+l: LET x2=x2+1 
IF e0<>0 THEN PRINT AT y 
da " 
IF e2<>0 THEN PRINT AT y 
2,xZadei" " 
IF x=32 THEN LET e0=0 
IF x2=32 THEN LET e2=0 
IF e0=0 AND e2=0 THEN 
GO TO 104 
GO TO 700 
BEEP 1,-40: PAPER 6: CLS : 
PAUSE 50: PAPER 2: CLS : 
PRINT AT 10,10; FLASH l;"S 
EI MORTO": PRINT AT 21,20;" 
PUNTEGGIO: ";z: FOR b=0 
TO -40 STEP -2: BEEP 0.2,b 
NEXT b: GO SUB 2000 
DATA 0;6,6,2,1#2150,230254 
r2305230, 2305230; 2304090723 
0, 23830;1,394714, 284561255, 
224,192,128,0:,0,0,0,0;0,192 
1254255, 254,192, 050 
CLS :* PRINT AT 1l0.2:"Un'alt 
ra partita? (s/n)": PAUSE 0 


LET a$=INKEYS 

IF a$="" THEN GO TO 2207 
IF a$<>"s" AND a$<>"n" 
THEN GO TO 2207 

IF a$="s" OR a$="S" THEN 
CLS: GO TO 68 

IF: a$<>"s" OR -a$<> "6" 
THEN CLS <* ‘PRINT AT 10,12 
; BRIGHT 1;"***SALVE***": 
PAUSE 100: NEW 

RETURN 
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di N.C. Pearson 
trad. e adatt. Ivan Cerè 


uesto programma consente una 
corsa tra 5 cavalli su una distanza 
di 5 (lunghezze) Furlongs. 
All’inizio del programma viene chiesto 
di scegliere un cavallo o più tra i cin- 
que presenti alla corsa. | cavalli sono 


Ippodromo 


versione per ZX Spectrum 16K/48K 


presentati con il loro nome, il loro co- 
lore e il loro numero; per sceglierli ba- 
sta scrivere il proprio nome, mentre per 
passare ad un cavallo successivo biso- 
gna premere la ‘x. 

Quando un cavallo vince si è informati 


35 PRINT AT 0,5; FLASH l; 
INVERSE l; "CORSA DEI CAVAL 


LE" 


se qualcuno ha scommesso su di lui, e 
si invita lo scommettitore di quel ca- 
vallo a ritirare la vincita. Si è anche in- 
formati se nessuno ha puntato il caval- 
lo vincente. 

Se si desidera cambiare i nomi ai ca- 
valli si può, molto semplicemente, 
cambiare i nomi alle linee 610-650 in- 
serendo i nuovi nomi che sceglierete 
per i propri purosangue elettronici. 


37 FLASH 0 


REM CORSA CAVALLI 


NIN 


GRAPHIC F PER LE SIEPI 


REM GRAPHIC H PER I CAVALLI 


PRINT AT 2,2;"PREMI S P 

ER PARTIRE" 

PRINT AT 4,l;" FAI LE TUES 
COMMESSE ": PRINT AT 6,Ì;" 
DEVI SCEGLIERE UN CAVALLO 


8 CLS : BORDER 4: PAPER 4: ": PRINT AT 8,1l;"SE NON L'H 

INK 0 AI ANCORA FATTO ": PRINT 

10 GO SUB 467 AT 10,1;" PREMI C PER VEDER 

20 GO TO 590 E I CAVALLI" 

30 BRIGHT l: CLS : PAPER 4: 50 LET r=0: LET a=0: LET b=0: 
BORDER 4: INK 0 LET. c=0: .LET. d=0:. LET e=0 

31 DRAW 255,0: DRAW 0,175: 52 INPUT m$ 
DRAW -255,0: DRAW 0,-175 53 IF m$="c" OR m$="C" THEN 

33 REM ***ISTRUZIONI*** GO “TO 583 
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REM ***DISEGNO* ** 


CLS 

PRINT AT 5,0;"{32G3}" 

PRINT AT 6,0;"l";AT 6,10;"F 
"TR16)20:; *PUEAD' 6,29 "F" 
PRINT AT 7,10;"F";AT 7,20;" 
F" 

PRINT AT 8,0;"2";AT 8,10;"F 
©jAT 8p20;"P'paf#48)29;"I" 
PRINT AT 9,10; "F";AT 9,20;" 
pre, 

PRINT AT 10,0;"3";AT 10,10; 
Ma: AT 20,203 *F*faT100729;" 
N" 

PRINT AT 11,10;"F";AT 11,20 
dr Sd 

PRINT AT 12,0;"4";AT 12,10; 
tp" A 1127 B0PENpEL2 29; 
pe 

PRINT AT 13,10;"F";AT 13,20 
Fo 

PRINT AT 14,0;"5";AT 14,10; 
‘P‘rATVI4,205"E*sAT1L4,29;" 
Ss" 

PRINT AT 15,10;"F";AT 15,20 
° di he 

r — 

PRINT AT 16,10; "E";AT 16,20 
;"E";AT 16, 29; ug" 

PRINT Lr 0pt{Aba3}" 
PRINT 2,4;"L=LUNGHEZZE" 
PRINT 4,l;"L-" 

PRINT A,53"5" 

PRINT 4,10;"4" 

PRINT 4,15;"3" 

PRINT 4A;20;"2r 

PRINT 4,25; 3" 

REM ***GIOCO*** 

LET r=INT (RND*6)+0 

PLOT 10,45: DRAW 0,90 


359 
360 


PLOT 230,45: DRAW 0,90 
IF r=1 THEN LET a=sa+l: 

IF r=1 THEN GO TO 250 
PRINT AT 6,10;"F";AT 6,20;" 
E" Pi 
IF r=2 THEN LET b=b+l: 

IF r=2 THEN GO TO 270 
PRINT AT 8,10; "F";AT gita" 
Pu 
IF r=3 THEN LET csc+l: 

IF r=3 THEN GO TO 285 
PRINT AT 10,10;"F";AT 10,20 
i 
IF r=4 THEN LET d=d+l: 

IF r=4 THEN GO TO 300 
PRINT AT ‘2,10; "F"VAP42,20 
Fbi; ol 
PRINT AT 14,0;"5";AT 14,10; 
“E";AT 14, PA wir 
IF r=5 THEN LET e=e+l: 


IF x=5 THEN...GO TO .320 
REM ***MOVIMENTO* * * 
BEEP.0.03,10? PRINTAT 5.5; 
"H";AT 6,a-1;" ULI 
IF a=29 THEN GO TO 348 
GO TO 60 
BEEP 0.03,14: PRINT AT 8,b; 
MI; AT 8-h-17% " : 
IF b=29 THEN GO TO 366 
GO TO 60 
BEEP 0.03,16: PRINT AT 10,c 
5"H" AT bos: Li" " 
IF c=29 THEN GO TO 386 
GO TO 60 
BEEP. 0..03,20:. PRINT AT 12,04 
RAT 1 Do per Pea Lig " 
IF d=29 THEN GO TO 406 
GO TO 60 
BEEP 0.03,22: PRINT AT 14,e 
set LA .2-ls " " 
IF e=29 THEN GO TO 426 


GO TO 60 
REM ***ROUTINE VINCITORE* ** 


PAUSE 100: CLS 

IF v$="" OR v$="x" OR v$é="x 
" THEN PRINT AT 10,0;" IL 
NUMERO l HA VINTO, MA 
NESSUNO HA PUNTATO SU DI L 
UT": GO.TO 460 

PAUSE 100: CLS 

PRINT AT 10,0;" IL VINCITOR 
E E' IL NUMERO l. "'Vv$;" 
PUO' RITIRARE LA VINCITA" 
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365 
366 
370 


30 
380 


385 
386 
390 


399 
400 


405 
406 
410 


420 


425 
426 
440 


450 


460 


4,65 


466 
467 
468 
469 
480 


PAUSE 100: GO TO 460 

PAUSE 100: CLS 

IF w$="" OR w$="X" OR w$="X 

" THEN PRINT AT 10,0;" IL 

NUMERO 2 HA VINTO , MA NES- 
SUNO HA PUNTATO SU DI LUI 

te G0TO 460: 

PAUSE 100: CLS 


PRINT AT 10,0;" IL VINCITOR 


E E' IL NUMERO 2 "'w$;" PUO 
' RITIRARE LA SUA VINCITA" 
PAUSE 100: GO TO 460 

PAUSE 100: CLS 


IF x$="" OR x$="x" OR x$="X 
“" THEN PRINT AT 10,0;" IL 
NUMERO 3 HA VINTO , MA NES- 
SUNO HA PUNTATO SU DI LUI" 
: GO TO 460 


PAUSE 100: CLS 
PRINT AT 10,0;" IL VINCITOR 
E E' IL NUMERO 3"'x$;" PUO! 
RITIRARE LA SUA VINCITA" 
PAUSE 100: GO TO 460 
PAUSE 100: CLS... 
IF y$="" OR y$="x" OR y$="X 
“. THEN. PRINT AT 10,0:;:" IL 
VINCITORE E' IL 4 MA NES- 
SUNO HA PUNTATO SU DI LUI" 
: GO TO 460 
PRIMTNE 10,0;" 
DES. yS;" PIO' 
ARE LA SUA VINCITA" 
PAUSE 100: GO TO 460 
PAUSE 100: CLS 
IF z$="" OR z$="x" OR z$="X 
"> PHEN “PRISSCAT 10,0;" IL 
VINCITORE E' IL 5 MA NES- 
SUNO HA SCOMMESSO SU DI LU 
I " 
PRINT AT 10,05" 
n° db a £8:° PUO” 
E LA SUA VINCITA" 
PRINT AT 14,0;" 
N'ALTRA CORSA 


IL VINCITOR 
RITIR 


IL VINCITOR 
RITIRAR 


VUOI U 
?": INPUT g$s 


IF g$="S" OR g$="s" THEN 
CLS co GO:"TO :35 


REM ***CARATTERI GRAFICI*** 
REM 
FOR j=0 TO 7 
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490 
500 
510 
520 


530 
540 
550 
560 
570 


580 
581 
582 
583 
590 


600 
610 


620 


630 


640 
650 


670 
680 


690 
695 
700 


750 
800 


810 


READ q_. . 

POKE USR "n"+;, q 

NEXT }j 

DATA BIN 00001100,BIN 000 


11000,BIN 01111011,BIN 11 


111111,BIN 10111001,BIN 1 
0011100,BIN 00100100, 

BIN 000110110 

FOR j=0 TO 7 

READ q 

POKE USR "£"+j,q 

NEXT }] 

DATA BIN 00011000,BIN 001 
11100,BIN 00111100, BIN 00 
011000, BIN 00111100,BIN 0 
0111100,BIN 00011000, 

BIN 00111100 


RETURN 

REM 

REM ***SCELTA CAVALLI*** 

REM o 

CLS : PLOT 0,150: DRAW 250, 

0 

PRINT AT 2,0;" NO NOME 
COLORE" 

PRINT AT 4,0;" 1 SUPERMA 

NU GRIGIO" 

PRINT AT 6,0;" 2 FINE TR 

IM NERO" 

PRINT AT 8,0;" 3 GOLDENT 

AILS MARRONE" 

PRINT AT 10,0;" 4 BREAKE 

R BE GREY/MARRONE" 

PRINT AT 12,0;" 5 STONEY 


BROAK MARRONE" 
PRINT i 


PRINT "PUOI SCEGLIERE QUALS 
IASI CAVALLOSCRIVI IL TUO N 
OME PER PRIMO PER SCEGLI 
ERE IL CAVALLO 1, PER S 
ECONDO PER IL CAVALLO 2 
È COSÌ* via. 

SE NON VUOI SCEGLIERE 
IL CAVALLOPREMI X OGNI VOLT 
A" 
INPUT v$,w$ ,x$,y$,Z$ 


PRINT 

PRINT "VUOI FARLI PARTIRE ? 
n 

INPUT G$ 


IF g$="s" OR g$ens OR g$g=" 
si" OR g$="SI" THEN 

GO TO 30 

NEW 


| E E DS E e ooeeriioeceooeEee" >> 


4 


di C. Elliston 
trad. e adatt. Ivan Cerè Linea 
11-14 


È gioco semplice ma estrema- 32-36 


mente difficile da giocare. Si con- 38 
trolla il flusso di mattoni nell’area di 40-50 
gioco usando i quattro tasti cursori. Il 100-5000 
movimento dell'’omino può essere fer- 455 
mato solamente andando contro un 5000-6000 
ostacolo o cambiando direzione. 5025 
In pratica dovrete cercare di muovere 
Bill evitando che resti intrappolato. | 5053 


punti equivalgono alla percentuale di 
schermo coperta dai mattoni. Una vol- 
ta raggiunto un punteggio di 80 ci sarà 


6000-7000 


un nuovo schermo, questa volta più 
difficile per il maggior numero di mat- 
toni già presenti all’inizio del gioco. 
Segue una lista delle linee di program- 
ma con delle possibili variazioni sul te- 
ma: 


Commento 


Definisce i caratteri grafici 

Stampa i muri del bordo 

Stampa il punteggio 

Stampa il numero di mattoni già presenti all’inizio. 
Contiene il programma principale di movimento 
Controlla che l’omino non sia intrappolato 

Calcola il punteggio 

Converte il numero di mattoni in percentuale di scher- 
mo coperta 

Questa linea può essere cambiata con un altro numero 
per cambiare schermo al punteggio voluto 
Contengono le istruzioni del gioco 


Bill il muratore 
versione per ZX Spectrum 16K/48K 


ll FOR n=0 TO 7: READ 2: 
POKE USR "a"+n,z: NEXT n 
12 DATA 0;lLklL9,1b9,1L1970238,23 
8,238 
13 FOR n=0 TO 7: READ 2: 
POKE USR "b"+n,z: NEXT n 
14 DATA 24,24,60,90,153,36,36, 
102 


15 GO SUB 6000 

16 LET hi=0: LET fr=0 

17 LET h=20 

18 LET score=0 

20 LET x=10: LET y=15 

30 LET a$="A" i 

32 PRINT BRIGHT l; PAPER 7; 

INK 2;AT 0,0; "AAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAA" 


33 FOR n=1 TO 20 
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36 


500 


HEFEEEEUUOI 


—_—————6€6€& 
II 
I 
CONE 


Hi 


PAUL 


PRINT BRIGHT l; PAPER 7; 
CER AAT n.,0FETAT nidi” 

A" e 

NEXT n 


PRINT BRIGHT l; PAPER 7; 


INK 2;AT 21,0; "AAAAAAAAAAA 


AAAAAAAAAAAAAAAAAAAAA" 
PRINT #1; PAPER 1; INK 7; 


‘AT 0,l;"PUNTEGGIO=";AT 0,19 


;s "RECORD=" 

FOR b=1 TO h 

LET c=INT (RND*20)+1 

IF c=10 THEN GO TO 45 

LET A=INT (RND*30)+1 

IF ATTR (c,d)>100 THEN 

GO TO 45 

BEEP .01,d 

PRINT PAPER 7; INK 2; 
BRIGHT l;AT c,d;a$: NEXT b 


FOR n=-20 TO 20: BEEP .0l1, 
ABS n+15: NEXT n 

PRINT AT Xx,Y;"B" 

PAUSE 0 

IF INKEY$="5" THEN GO TO 1 
000 

IF INKEY$="6" THEN GO TO 2 
000 

IF INKEY$="7" THEN GO TO 3 
000 

IF INKEY$="8" THEN GO TO 4 
000 


PRINT AT x,y; "B" 

IF ATTR (x+1,y)>32 AND 
ATTR (x-1,y)>32 AND ATTR (x 
rY+1)>32 AND ATTR (x,y-1)>3 
2 THEN GO TO 5000 

GO TO 100 


1000 REM +++++SINISTRA++++++++ 
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| IF INKEYS="7" 


IF ATTR (x,y-1)>32 THEN 
GO TO 100 
PRINT. PAPER 7; INK 2; 
BRIGHT l;AT x,y;"A" 
PRINT #1; PAPER l; INK 7; 
AT 0,11;INT ((score*100)/(5 
99-h))+fr 
LET y=y-1 
IF y<=0 THEN LET y=0 
PRINT AT x,y; "B" 
Nuenp.Uf,21-x.- 
LET score=score+l 
IF INKEY$="6" THEN GO TO 2 
000 
THEN GO TO 3 
000 
GO TO 1000 
REM ++++++++GIU'++++++++ 
IF ATTR (x+1,y)>32 THEN 
GO TO 100 
PRINT PAPER 7; INK 2; 
BRIGHT lL;AT x,y;"A" 
PRINT #1; PAPER l; INK 7; 
AT 0,11;INT ((score*l100)/(5 
99-h))+fr 
LET x=x+1l 
IF x>=21 ‘THEN LET x=21 
PRINT ATX.Y;"B" 
BEEP ..0%,2i-x0 
LET score=score+l 
IF INKEY$S="5" THEN GO TO 1 
000 
IF INKEYS="8" THEN GO TO 4 
000 
GO TO 2000 
REM ++++++++SU++++++++ 
IF ATTR (x-l1,y)>32 THEN 
GO TO 100 e 
PRINT PAPER 7; INK 2; 
BRIGHT l;AT x,y; "A" 
PRINT #1; PAPER l; INK 7; 
AT O0,11;INT ((score*100)/(5 
99-h))+fr 
LET x=x-l1 
IF x<=0 THEN LET x=0 
PRENT AI x,y DB" 
BEEP .01,21-x 0 
LET score=score+l 
IF INKEY$="5" THEN GO TO 1 
000 
IF INKEYS="8" THEN GO TO 4 
000 
GO TO 3000 
REM ++++++++DESTRA++++++++ 


4010 
4020 


4025 


‘4030 
4035 
4040 
4050 
4055 
4070 


4080 


4090 
5000 
5025 


5030 
9039 
5050 


5053 
5054 


5055 


5059 
5060 


5063 


5069 
5070 
5080 


5090 
5093 


5095 
6000 
6010 


6015 


IF ATTR (x,y+1)>32 THEN 

GO TO 100 

PRINT PAPER 7; INK 2; 
BRIGHT l;AT x,y;"A" 

PRINT #1; PAPER l; INK 7; 
AT 0,11;INT ((score*100)/(5 
99-h))+fr 

LET y=y+1 

IF y>=31 THEN LET y=31 
PRINDRI "XVID" 

REED: Ul, dle 

LET score=score+tl 

IF INKEY$="6" THEN GO TO 2 
000 

IF INKEYS="7" 
000 
GO TO 4000 
REM ++++++PUNTEGGIO+++++ 
LET pc=INT ((score*100)/(59 
9-h)) 

LET fr=fr+pc 

TESSPeShiPHEN LET hi=fr 
PRINT #1; PAPER 1; INK 7; 
AT 0,1; "PUNTEGGIO=";INT pc; 
ihr i Lis thee gh1 ;" 
" 

IF pc>=80 THEN GO TO 5060 
LET fr=0: 


THEN GO TO 3 


LET pc=0: LET h=2 
0 
PRINT PAPER 6; INK 0; 


FLASH l;AT 2,1;" PREMI UN 


TASTO PER GIOCARE. " 

GO TO 5069 

LET.-pc=0:; LET h=h+10w. LRT f 
r=0 

PRINT FLASH l; PAPER 6; 
INK OsAT .2,3;" PREMI 

UN TASTO ": PRINT 
FLASH l; PAPER 6; INK 0; 

AT 3,3;" PER UN NUOVO ROUN 

D " 

PAUSE 00 


FOR n=1 TO 20 
PRINT PAPER 4;AT n,l]l;" 


BEEP 
NEXT n 
PRINT #1; PAPER ll; 
ae ostie! 

GO TO 18 
REM +++ISTRUZIONI+++ 
BORDER 6: PAPER 4: CLS 


DRAW 255,0: DRAW'0/,;175: 
DRAW -255,0: DRAW 0,-175 


#0l gn 


EN i 


6020 
6030 


6040 
6050 


6060 
6070 


6080 
6090 


6095 
6100 
6110 
6120 


6130 
6134 


6.139 
6140 
6150 


6160 


6170 


6175 


6180 
6190 
6200 
6210 
6220 
7000 


FOR n=1 TO 9 
PRINT PAPER 7; INK 2; 
BRIGHT 1l;AT n,1l;"AAAAAAAAA 


AAAAAAAAAAAARAAAARARAAR" 


NEXT n 
PRINT PAPER 7; INK 2; 
BRIGHT l;AT 10,1l;"A 
nr A" 
FOR n=11 TO 20 75 
PRINT PAPER 7; INK 2; 
BRIGHT 1;AT n,1l;"AAAAAAAAA 


AAAAAAAAAAAAAAAAARAARA" 


NEXT n 
LET a$=" 

BILL IL MURATORE 

AIUTA BILL AD AMMUCCH 
IARE I MATTONI MA ATTENZION 
E A NON ESSERE INTRAPPOLATO 

BAA 

AAAAAAAAAAAAAAAAAAAAAAAAAA" 


FOR n=0 TO 150 

LET a$=a$(2 TO )+aS$(l1) 

BEEP .05,CODE a$(28)/4 
PRINT PAPER 7; INK 2; 
BRIGHT 1;AS 10,2;a65%1 TO32 
8) 

NEXT n 

PRINT BRIGHT 1; PAPER ll; 
INK 7;AT 10, 2;"PREMICUN.TA 

STO PER CONTINUARE" 

PAUSE 0 

PAPER 4: CLS 

PRINT PAPER 4; INK 0;AT 2, 
2;"USA I CURSORI PER MANOVR 

ARE BILL PER LA MATTONA 
Tha" 

PRINT PAPER 4; INK O0;AT 6, 
2;"ALLA FINE DI OGNI PARTIT 


A TI SARA' DATA LA PERCE 
NTUALE APPROSSIMATIVA 
DEL CORTILE COPERTO D 


AI MATTONI." 

PRINT PAPER 4; INK 0; 
BRIGHT l;AT 15,2; "PREMI UN 
TASTO PER PARTIRE." 

DRAW 255,0: DRAW 0,175: 
DRAW -255,0: DRAW 0,-175 

PAUSE 0 

FOR n=0 TO 40 STEP 5 

BEEP .03,n 

NEXT n 

CLS 

RETURN 
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di Andrew Cook 
trad. e adatt. Ivan Cerè 


= un programma di uso molto sem- 
E plice in quanto non ci sono, come 
succede in molti videogames, 5 o 6 ta- 
sti da controllare contemporaneamen- 
te. L'unica preoccupazione che avrete 
è fermare al punto giusto una freccia 
che scorre sul video. 

Quando il programma parte, appare 
una pedana di bowling. 

Una freccia si muove sullo sfondo del 
video con una velocità che varia con il 
livello di difficoltà prescelto. Per fer- 
mare la freccia basta premere la “Z” e 
dal punto in cui la freccia è fermata 
parte una boccia che farà cadere un 
certo numero di birilli. Ovviamente fa- 


] CR 


DA 


ps, 


Bowling 


Linee 
7-13 


14-70 
540-600 
620-800 


920-1020 

2000-2050 
4000-4055 
5040-5120 
5999-7115 


versione per ZX Spectrum 16K/48K 


l REM +++++BOWLING+++++ 
3 BORDER 5: PAPER 7: 


LET intro=6000 
4 GO SUB intro 
5 CLEAR : RESTORE 
6 LET hi=0 
t; 


INK 2: 


cia fermata nel centro della pedana. 


prontezza di riflessi. 
Ecco ora una descrizione del program- 
ma: 


Commento 
Seleziona il livello di difficoltà, cioè la velocità di scorri- 
mento della freccia che è determinata dalla lunghezza 
dei BEEP nella linea 200. 

Stampa la pedana. 

Stampa i birilli alla fine della pedana. 

Contiene la subroutine di disegno della boccia. Questa 
è ottenuta con il disegno di successivi cerchi il cui cen- 
tro, a, è determinato dal punto di arresto della freccia. 
Definisce i caratteri grafici. 

Contiene il loop usato per il movimento della freccia. 
Queste linee determinano quali e quanti birilli cadono. 
Contiene le routine di ‘punteggio’ e ‘record’. 

Contiene l'introduzione al programma e le istruzioni del 
gioco. 


13 IF d$="3" THEN LET beep=.0 
025 

14 CLS : PLOT 88,0: DRAW 18,11 
2 

15 PLOT 176,0: DRAW -16,112 

16 PLOT 104,112: DRAW 0,50 

20 PLOT 160,112: DRAW 0,50: 
DRAW -56,0 

29 LET total=0: LET count=1 

30 LET flag=0: LET score=0: 
LET flaga=0: LET flagb=0: 
LET flagc=0: LET flagd=0 

31 LET a=0: LET chr=920: LET a 
im=2000: LET path=3000: 


LET hit=4000: LET counter= 


5000 
35 PRINT AT 2,14; INK 3; "Punti 
**AT 3,16Fscore 
37 PRINT RP 5 bf “INK ‘3 ‘FORA 


rete un miglior punteggio con la frec- 


L'unica abilità richiesta è una buona 


PRINT AT 10,3;"Scegli livel 
bos "GESfFiICOEtaA**:R7 152,5; 
"il \Pacilbe"yAT 13;5f"2 Medio 
WaRtiL0, Sy DI£f£r6S1 Le” 

10 LET d$=INKEYS: IF CODE d$<4 
9 OR CODE d$>5l1 THEN 
GO TO 7 

ll IF d$="1" THEN LET beep=.0 
25 

12 IF d$="2" THEN LET beep=.0 
125 
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38 
40 
50 
60 


500 
520 


e"”:AT 6,i16ptotal 
PRINT AT 2,0; INK 3;"Frazio 


‘ne" 


PRINT AT 3,3; INK 3;count 


SN 


PRINT AT 2,24; INK 3; "Recor 
d ULI 

PRINT *AT ‘34265 ‘INK 3;hi 
RESTORE 


GO SUB chr 


FOR b=14 TO 18 


PRINT 
NEXT b 
FOR b=15 TO 17: PRINT 

INK 0;AT 9,b;"A": NEXT b 
PRINT INK 0;AT 10,16;"A" 
IF flag=2 THEN GO TO count 
er 


GO SUB 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 


INK_.0;AT 8,b;"A": 


aim 
INK 1l;a,20,15 
OVER 1lj;a,20,15 
INK l;a,40,12 
OVER 1l;a,40,12 
MK ;L1:a,60,9 
OVER 1;a,60,9 
INK 1;a,80,6 
OVER 1l;a,80,6 
INK 1;a,100,3 
CIRCLE OVER l;a,100, 3 
GO SUB hit 
IF score=9 AND flag=l1l 
THEN PRINT FLASH ]L;AT 3, 
6" 9%» BBEP: >. 2,5: BEEP 1,3 
: GO TO counter 
IF a=131 AND flag=2 THEN 
BEEP .5,5: GO TO counter 
PRINT AT 3,16; INK 3;score 
PRINT AT 6,16; INK 3;total 


PAUSE 100 

IF a=131 THEN GO TO 30 
GO TO 610 

STOP 

REM *****chr***** 


FOR s=0 TO 7: READ 
POKE USR "a"+s,x: 
REM graphic A 

FOR s=0 TO 7: READ 
POKE USR "b"+s,x: 
REM graphic B 


x: 
NEXT Ss: 


Xi 
NEXT s: 


960 


980 


1000 
1020 


1040 
1060 
L999 
2000 


2005 
2010 


2015 
2020 
2050 


4055 
2060 
2999 
3000 
3005 
3010 
3020 
3030 
3040 
3045 
3050 
3999 
4000 


4010 


4030 


FOR s=0 TO 7: 
POKE USR "c"+s,x: 
REM graphic C 

DATA 24,24,24,60,60,60,60,6 

0 

DATA 10.0 (00';3Lk,255,255,31 

DA:FA (0, 0:::0,;0', 248,255 7255, 24 

8 

RETURN 

STOP 

REM KKKkk*kaim***** 

FOR x=14 TO 18: PRINT AT 21 
rXs INK 0;" 1": BEEP béep;0 
° IF INKEYS="z" THEN 
GO TO 2050 

NEXT x 

FOR x=18 TO 14 STEP -l: 
PRINT AT 21,x;. INK 04 
IF INKEY$="z" THEN 


READ x: 
NEXT s: 


GO TO 2050 
NEXT x 
GO TO aim 
FOR p=13 TO 19: IF 
SCREENS (21,p)="t" THEN 
GO SUB path 
NEXT p 
RETURN 
REM *****path***** 
IF p=13 THEN LET a=l14 
F p=14 THEN LET a=114 
IF p=15 THEN LET a=124 
IF p=16 THEN LET a=131 
IF p=17 THEN LET a=139 
IF p=18 THEN LET a=147 
IF p=19 THEN LET a=147 
RETURN 


REM KKX*XXhj{t****% 
IF a=114 THEN PRINT INK O 
;sAT 8,14;"B";AT 8,15;"B": 

IF flaga=0 AND flagb=0 

THEN LET score=2: LET fla 
ga=l: LET total=total+score 
: GO TO 4055 
IF a=124 THEN PRINT INK O 
3 AT 8,14;"B";AT 8,15;"B"; 
ATA, ISCR, 16900: 

IF flagb=0 THEN LET score 
=4: LET flagb=1: LET total= 
total+score: GO TO 4055 
IF a=131 THEN PRINT INK O 
FAT::8/14;"B"yNT 8,15;"B"; 
AT 8,16; "C";AT 870"; 
hg 383 "BAT 150") 
AT:9,16;YC";AT 9, 17980; 
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4040 


4050 


4055 
4060 
4999 
5000 
5010 
D5DOT5 
5020 


5030 
5040 


5042 


5044 


5047 


5050 


5052 


5053 


5055 
5060 


5070 


AT 10,16;"B": LET score=9-s 

core: LET total=total+score 
: GO TO 4055 

IF a=139 THEN PRINT INKO 
SAT 8,15; "BAT @,1605°C"; 

AT 8,17;"C";AT 8,18;"B"; 

AT 9,17;"C": IF flagc=0 
THEN LET score=4: LET fla 

gc=1l: LET total=total+score 
: GO TO 4055 

IF a=147 THEN PRINT INK O 
FAT IBSLIPICOINI (8,189; "B%; 
IF flagd=0 AND flagc=0 
THEN LET score=2: LET fla 

gd=1: LET total=total+score 


LET flag=flag+l 

RETURN l 

REM *x*X***counter *%*%*%*%* 

PAUSE 50 

LET count=count+l 

PRINT AT 3,3;count 

IF count= ll THEN GO TO (504 
0 

GO TO 30 

Che e PRINT AT 10,10; 
FLASH l; INK l;"Punti= 

otal 


IF total<20 THEN PRINT 
AT 12,10; INK l; FLASH 
IPROVA" 
IF total>19 AND total<40 
THEN PRINT AT 12,10; 
INK l; FLASH l;"VA MEGLIO" 


SC 


EER 


IF total>39 AND total<60 
THEN PRINT AT 12,10; 

INK l; FLASH 1; "BUONO" 

IF total>59 AND total<75 
THEN PRINT AT 12,10; 

.INK l; FLASH 1; "MOLTO BENE 
" 

IF total>74 AND total<90 
THEN PRINT AT 12,10; 

INK l; FLASH l; "ECCELLENTE 


IF total=90 THEN PRINT 


AT 12,10; INK l; FLASH l;"F 
ANTASTICO" 

PAUSE 200 

CLS: n. PRINT'AT [L0,21"Wuoi c 
ontinuare? (s/n)" 

IF INKEY$<>"s" THEN IF 


INKEY$<>"S" THEN IF 
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5080 


5085 


5087 


5090 


5095 
5100 


5110 
5120 
dD999 
6000 


7000 
TITOLO 


7020 


7030 


7040 


7050 
7060 


7070 


7080 
7090 


7100 
7110 


TALI 


INKEY$<>"n" THEN IF 
INKEY$<>"N" THEN. GO TO 5 
070 


PAUSE 0: 
INKEYS="S" 


IF INKEY$="s" OR 
THEN GO TO 5090 


FOR.@=1 TO 130: 
INK RND*6;" Ciao 


Ubs: 
PRINT 
: NEXT e 
STOP 
IF total>hi THEN LET 'hi#fto 
tal: GO TO 5100 
GO TO 10 
CLS : PRINT AT 6,0; "Grandio 
so! Hai battuto il"'"record. 
.Scrivi il tuo nome"'"(8 le 
ttere max.) e premi enter" 
INPUT a$ 
GO TO 10 
REM *XXKX*X*intro***%** 
CLS*»"PRENT INK <i 
sAT 10,11; "BOWLING" 
LET a=.2: LET b=.4 
BEEP a,5: BEEP a,3: 
1 
BEEP b,l: BEEP a,l: 
3: BEEP a,5 
BEEP a,6: BEEP b,8: BEEP Db, 
8: BEEP a,8: BEEP a,5 
CLS |? SPRINT “AT ULOfSP=VUOT 51 
E ISTROZIONI “‘?":AT.ILL.(1D3p"%| 
s/n)" 
LET a$= INKEYS 
IF a$<>"s" THEN IF a$ 
>" S" THEN -—IPas n° 
THEN IF a$<>"N" THEN 
GO TO 7050 
IF a$="s" OR a$="S" THEN 
GO TO 7090 
GOITO 3 
CES'or PRINP AT .8,0*#"Giochi 
due volte per frazione"'"a 
meno che tu non faccia"'"st 
rike con il primo tire": 
PRINT : PRINT : PRINT "Ogn 
i':partitaà dura 4WVl'0 frazioni... 
tei PRINT .: PRINT : PRINT ""p 
remi z per fermare la frecc 
era 
PRINT AT 20,0; 
UN TASTO" 
INKEYS="" 


ULI 
LA 


FLASH l 


BEEP b, 


BEEP a, 


FLASH l; "PRE 
THEN GO TO 71 


GO TO 5 


di R. Page 
trad. e adatt. Ivan Cerè 


uesto è un gioco per due persone. 

Essenzialmente è basato su un 
duello fra i due giocatori che controlla- 
no un cowboy ciascuno, piazzati uno 
sulla destra e l’altro sulla sinistra dello 
schermo. 
Nel mezzo c’è una strada e sparsi per i 
campi crescono dei cactus, in più sulla 
strada c'è una diligenza che si muove 
su e giù. Un cowboy non può essere 
colpito se si trova protetto da un cac- 
tus o dalla diligenza. 
Scoprirete anche che i vostri colpi non 
attraversano completamente lo scher- 
mo. Non è quindi una buona tattica 


e 


Linee Commento 

10-50 Spara un colpo e controlla se uno dei giocatori è stato 
colpito 

90-200 Stampa le istruzioni del gioco 

530-600 Disegna lo schermo 

610-760 Contiene il programma principale e controlla se c’è un 
vincitore 

770-830 Definisce i caratteri grafici e assegna i valori alle variabi- 
li usate 


starsene nascosti sperando che il vo- Per vincere il duello bisogna colpire 5 
stro avversario si scopra imprudente- volte l'avversario. 

mente: questo non è un gioco per co- 

dardi. Eccovi il listato del programma: 
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Ok corral 
versione per ZX Spectrum 16K/48K 


GO TO 90 
REM SPARA E CONTROLLA COLPO 


do 


40 


50 


36 


FOR r=(b+2) 
IF SCREENS 
GO TO 50 
IF ATTR (a,r)=39 OR ATTR (a 
rt)#33 THEN PRINT AT a,r-l 

i Fe. 90 TO 50 

PRINT AT a,r-if" “EMI a,.,Ij 
OMR." NEST Fri PRINT 

e tr-1;" ": GO TO 650 

RETURN 

FOR r=(d-1) 
STEP -l1 
IF SCREENS 
GO TO 40 
IF ATTR (c,r-1)=39 OR 

ATTR (c,r-1)=33 THEN 

PRINT NT c,r;"aelll0 TO 73 
0 

PRINT AT c.r;j" ":Nib.r-1; 
INK 75". NEXT rito6M8INT 

RP c.r;s" ROEGTO 73 

PRINT AT a,b;"IJ";AT a+l,b; 
ve LET Ses el: BESE:2,2 
0: BEEP .,2,10DBEP 2,15: 
PRINT INK 7; PAPER 0;AT 0 
sdtib2: PRIMETAT a,b;""; 

AT a,b+l:" ‘9 GO TO. 
PRINT AT c,d;"KL";AT c+l,d; 
note LET stast*Li. BEEP .2:2 
Ov BEEP :.:2,100 BEEP -.2,15: 
PRINT INK 7; PAPER O0;AT 0 
sii PRINT AT Ci. "3 

AT #13" "1° 60. TO 7650 


TO (b+18) 


(cC,d)="." THEN 


TO (d-18) 


(a,b)="." THEN 
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90 
100 


110 


120 
130 


135 


140 


150 


160 


165 


166 


170 
180 


200 
ISO 


540 


564 


INK 2: PAPER 6: BORDER 6: 
CLS 
PRINT 
EST" 
PRINT AT 2,1;"IL PRIMO PIST 
OLERO CHE COLPISCE IL PROPR 
IO AVVERSARIO ALMENO CIN 

QUE VOLTE E' IL VINCITORE 
DEL DUELLO" 

PRINT AT 6,12; "CONTROLLI" 

PRINT AT 8,4;"PLAYER-1"; 

AT 8,20; "PLAYER-2" 

PRINT RT 9,14: "FUOCO” RT 11 

CARII SUINI Alpi Di Lol 

rl7;"9" 


PRINT AT.-10.,8:"SU40rsAT: 12, 
6F"GIU'-I1":AT 14,3: "SINU:CA 
PS"*AT 16,4: "DESTRA-A" 
PRINT AT..10:,:205"0<SU"*:&T'12 
alt PSGTO 0 AT L14720; SENTE 
R-SIN.";AT 16,20;"SPACE-DES 
TRA" 


"DUELLO NEL VECCHIO W 


PRINT : PRINT "NON PUOI ESS 
ERE COLPITO SE TI NASCOND 
I DIETRO UN CACTUS O DI 
ETRO LA DILIGENZA SULLA STR 
ADA" 

INPUT "NOME DEL GIOCATORE U 
NO";A$: IF A$="" THEN 

GO: PO L65 

INPUT "NOME DEL GIOCATORE D 
UE";B$: IF B$="" THEN 

GO TO 166 
PAUSE 50 
PRINT FLASH l; PAPER 7; 


INK 2;AT 21,3; "PREMI UN TA 
STO PER INIZIARE" 


PAUSE 0 
PAPER 4: BORDER 4: INK 0: 
CLS 10 RESTORE : GO SUB 770 


: PRINT PAPER /3AT 0,0; 
INVERSE l;"PUNT.1= ";AT 0, 
23} INVERSE 1; "PUNT.2= "; 
AT 0,8 OVER Li PAPER :/;sl; 
AT.0,3l; PAPER 7;s2:! OVER 0. 


FOR £=21 TO 0 STEP -l: 
PRINT ATI (14: RT CE 18; 
ae INBXPT CE 

RESTORE 565: FOR f=1 TO 8: 
READ w,Xx,Yy,z: PRINT INK 7 
‘AT w,XxsCHRS 148;AT vy;2; 
INK 7;CHRS 149: NEXT £f 


565 


600 


610 


620 


625 


630 
645 
647 


680 


700 
710 
720 


129 


730 


DATA It; 20 L22073 Cda i 
LO LI 318,25 pda 
19,18,8,19,8,13,5,14,5,6,27 
e o a, 
FOR o=19 TO 1 STEP 
PRINT AT o+1,16;" 
0367" "=AT o-kstbi 
CHRS 144: PRINT AT 
INK 1;CHR$ 145 
PRINT OVER l;AT a,b;CHR$ 1 
46;AT a+1,b; OVER 1l;CHR$ 14 
7 
LET a=a+(IN 63486=190 AND 
ATTR (a+2,b)=32 AND ATTR (a 
+2,b+1)=32 AND a<19)-(IN 64 
510=190 AND ATTR (a-1,b)=32 
AND::ATTR*(a-l,b-1)=32 
AND a>2) 
LET b=b+(IN 65022=190 AND 
ATTR (a,b+2)=32 AND ATTR (a 
+1,b+1)=32 AND b<12)-(IN 65 
278=190 AND ATTR (a,b-1)=32 
AND ATTR (a-l1,b-1)=32 
AND b>2) 
0Uf:63486,0: OUT 64510,0: 
botte: #5022,0: OUT 65278,0 
PRINT AT a,b;CHR$ 146;AT a+ 
l1,b;CHR$ 147 
IF: INKEYS="2"- THEN":G0. TO 1 
0 
PRINT AT c,d; OVER l;CHR$ 1 
50;AT c+l,d; OVER 1;CHR$ 15 
i 
LET c=c+(IN 61438=190 AND 
ATTR (c+2,d)=32 AND c<19)-( 
IN 57342=190 AND ATTR (c-l, 
d)=32 AND c>2) 
LET da=d- (IN 49150=190 AND 
ATTR (c,d-2)=32 AND ATTR (c 
+1,d-1)=32 AND d>20)+(IN 32 


766=190 AND ATTR \c,d+1)=32 
AND ATTR (c-1,d+1) AND d<3 
0) 


PRINT AT c,d;CHR$ 150;AT c+ 
1,G;CHRS:151 
IF INKEYS$="9" 
5 

IF s1=5 THEN PRINT 

INVERSE:1l;AT:11;10; 

PAPER 7; FLASH l;a$;" VINC 
E": PAUSE 200: PRINT AT 13, 
3; PAPER 7; INVERSE l;"PREM 
I UN TASTO PER GIOCARE": 

PAUSE 0: FLASH 0: GO TO 53 
0 


THEN GO TO 2 


740 


750 
760 


770 


780 


790 


800 


810 


815 


817 


820 


830 


IF s2=5 THEN PRINT AT _11,1l 
0; PAPER 7; FLASH l;b$;".VI 
NCE": PAUSE 200: PRINT AT 1 
3,3; PAPER 7; INVERSE l;"PR 
EMI UN TASTO PER GIOCARE": 
PAUSE 0: FLASH 0: GO TO 53 
0 


NEXT o 


PRINT RED 16; " 
": GO TO 600 


";ATSI,16;" 


RESTORE 780: FOR n=USR 
TO USR "l"+7: READ a: 
POKE n,a: NEXT n 


ta” 


DATA 0,0,24,60,102,195,195, 
195,195,126,189,189,255,189 
7129,0 


DATA 48,120,48,127,120,120, 
120,48,80,144,216,0,0,0,0,0 


DATA 24,24,27,27,27,219,219 
223,223 220, 220252, 27,28 
128,28 


DATA -:12;30,12,#54,30,30;30, 
12,10,9,;27, 05070700 


DATA:16,16,95,255,255,.95.0, 
0,0,16,16,240,240,0,0,0 


DATA 0,8,8,15,15,0,0,0,16,1 
6.,2530,255,255,250,(0 


LET a=19: LET b=l1l: LET c=19 
LET d=30: LET sl=0: LET Ss 

2=0 

RETURN 


Nel prossimo numero, 


anche programmi 
per lo ZX81. 
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di Akram Malik 
trad. e adatt. Ivan Cerè 


n questo programma la vostra mis- 

sione è difendere la Terra da due on- 
date di invasori. 
La prima ondata non è molto potente e 
la loro forza distruttiva è abbastanza 
debole, quindi fino a 5 alieni possono 
passare attraverso le vostre difese sen- 
za provocare la sconfitta totale delle 
forze terrestri. 


Una volta che avete colpito 20 di que- 
sti alieni arriverà la seconda ondata. 
Quest'ultima è molto più potente della 
prima e quindi solamente 2 di loro 
possono sfuggire alle vostre difese. Se 
anche questa volta riuscirete a colpire 
20 di questi alieni tutto il genere uma- 
no si potrà congratulare con voi per la 
vostra bravura e il vostro coraggio. 


=l16: 


+5 
tà ‘TF 


60 LET lp=100: 
LET a$="BC" 
70 LET i=2: LET q=INT (RND*17) 


Dovete fare inoltre attenzione a non 
sprecare i colpi laser. Infatti dopo 100 
colpi la vostra energia si esaurirà e non 
potrete più nulla contro l'invasione. 
Naturalmente se, per un motivo o per 
l'altro, un gran numero di invasori rag- 
giunge la Terra, questa viene distrutta 
e il gioco termina con un messaggio 
che informa del triste destino del pia- 
neta. 

I tasti di controllo sono: ‘1’-‘5’ per muo- 
versi a sinistra, ‘6’-‘0’ per muoversi a 
destra e l’ultima fila di tasti per spara- 
re. 


LET at=5% LET c 


sc>0 THEN PRINT AT 0,3; 


75 IF an=0 THEN GO TO 1310 
80 PRINT 
90° PRINT AT:20;6;" " 

95 IF i=20 THEN GO TO 270 
LET c=c+(IN 61438<>255 
AND c<30)- (IN 63486<>255 
AND c>l) 


INK 0;AT i,g;a$ 


110 PRINT AT 20,c; INK 2;"D" 
120 PRINT OVER l; INK O;AT i,q 
;a$ 
Inferno 125 LET i=i+l 
versione per ZX Spectrum 16K/48K 130 LET q=q+INT (RND*3)-1+(3 
AND q<-30)-(3 AND q>30) 
1 GO SUB 4000 135 IF q=0 OR q=31 THEN 
4 LET Hi=0 GO TO L30 
5 LET sc=0 | 140 PRINT OVER 1; INK 0;AT i,q 
6 LET an=20: GO SUB 1000 sa$: BEEP .01;12 
10 BORDER l: PAPER 5: INK 2: 155 IF i=20 AND (q=c OR q+1=c) 
CLS THEN PRINT AT i,c-l; "EEE" 
20 FOR g=1 TO 21: PRINT AT g,0 ° PRINTI? INK23AT "10; 74 
FRUSAT g,31;"A": NEXT g INK:3i"séeiT">: | INK:07"stato 
30 FOR h=0 TO 7: PLOT 0,h: "; INK 2; FLASH l;"DISTRUT 
DRAW: :.INK<.3:s 255,0: ‘NEXT h TO4"f/BREP:2(5:#UBBEP 1:30: 
40 PLOT 0,167: DRAW 255,0 PAUSE 150: GO TO 300 
SO - PRINT AT:090; (INK .3e"PUN "» 160. IF".(1N065278<>255 ORVIN. 3 


SCITAB 135 
TB "235 
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INK 2;"INFERNO"; 
INK WeUREC "hi 


00: 


2766<>255) 
LET lp=1p-l 


THEN GO SUB 2 


165 
170 
200 


220 


250 
270 


SÒ 


280 


285 


290 


310 
320 


330 


IF lp=0 THEN GO TO 6000 
GO TO 80 


PLOT... INVERSE- 1;c*8+4,17: 
DRAW INK INT (RND*3);0,14 
8: BEEP..06,16: PLOT 
INVERSE 1l;c*8+4,17: 
OVER 1;0,148 
IF (i>2 AND i<20) AND (q=c 
OR q+tl=c) THEN LET sc=sc+ 
500% PRINT:ATCO,&FUINN "3; sc 
: BEEP .08,5: PRINT INK 


INT" (RND*3);AT.i,c-l;"EEE": 


DRAW 


BEEP .02,15: PRINT AT'i1,c- 
Le ": LET an=an-l: 

GO TO 70 

RETURN 

PRINT AT 20,0;" 4‘: LET sc= 
sc-200: IF sc<0 THEN 

PRINT INK 3;AT 0,3;sc 

IF sc>0 THEN PRINT INK 3; 
KP 0,05"PUN ":8sc: IF 2€>0 


THEN PRINT AT 0,3;" " 
LET at=at-l: IF at>0 THEN 
GO TO 70 
PRINT INK 2; 
r25"PAZZO"; INK l; 


FLASH l;AT 10 
FLASH 0; 


" ne sono sfuggiti "; INK 3 
s"ben 5!" 
BEEP .5,10: BEEP 1l,-30: 


BEEP 2,20: BEEP 3,0 

IF sc>hi THEN LET hi=sc 
BORDER 3: PAPER 7: INK 3: 
CLS 

FOR h=0 TO 40 STEP 8: 
=40 TO 0 STEP -10: BEEP 
pi: BEBE c.04get NERD. es 
NEXT h 


FOR t 
+07 


340 


341 
342 


343 
344 


345 


350 
1000 


1010 


1100 


1310 


L319 


L3Li 


1319 


1320 


1324 
1329 


1330 
1335 


1340 
1380 


PRINT AT 1,10; FLASH l;"FIN 
E/GIOCO”;: AT:(3715 FLASH 07"L 
a terra ora sara' distrutta 
-";AT 10,3;"Il tuo punteggi 
o.@e':":sc;AT IZ;5;UBi recor 
d':@'5b:hi 

PRINT AT 16,5; "Un'altra par 
tita2!(s/n)" 

LET xS=INKEYS 

IF x$="" THEN GO TO 342 

IF -x$<>"s" AND +x$<>"S" 

AND x$<>"n" AND x$<>"N 

“ THENT GO TO 342 

IF x$="n" OR x$="N" THEN 
CLS * (PRINT.AT 10,1Fs"***R 
YE***": PAUSE 200: NEW 

GO TO 5 
BORDER l: 


PAPER l: INK 7 


CLS 
PRINT AT 0,10; INK 
(95SG8}": OVER l:AT.0x10:" 
USAP Lel0; 
PAPER 7;"{SG8}INFERNO{SG8} 
“:ATAmk:0:"{95G8}":AT.4p0a 
PAPER 2s. INK 7;"DIFENDI LA 
TERRA DALL'INVASIONE!"; 
PAPER l; INK.-73AT.:7,2;"“Tas 
ti 1-5 muovi a sinistra"; 
AT 9,4;"Tasti 6-0 muovi des 
tra";AT 11,5f"binea,.-in fond 
o-fuoco";AT 17,8;"Premi un 
tasto" 
PAUSE 0: RETURN 
FOR y=0 TO 20 STEP 2: 


BEEP .08,y: BEEP .2,5: 
NEXT y 

BORDER 2: PAPER l: INK 7: 
CLS 


PRINT AT 11,12; "Fase 2": 
PAUSE 50: CLS 
FOR r=1 TO 21: PRINT AT r.,0 
sE" AT cdl; "PF: Mt. 5 
FOR w=0 TO 7: PLOT 0,w: 
DRAW INK 4;255,0: NEXT w 
PLOT 0,167: DRAW 255,0 
PRINT AT 0,0; INK 6;"PUN "; 
sc;TAB 10; INK 5; "INFERNO 


N-PAB023;3 TWK0&;"RBC'";hi 
LET at=2: LET c=l16: LET al= 
20 


LET i=2: LET q=INT (RND*17) 
+5 
IF al=0 THEN GO TO 2000 
PRINT INK 6;AT i,g;"G" 
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1390 
»:395 
1400 
1410 
1420 


1425 
1430 


1435 
1440 


1450 


1460 


1465 
1470 
1500 


1520 


1550 
1570 


1575 


1585 


395 


PRINT AT 20, 
IF i=20 THEN GO TO 1570 
LET c=c+(IN 61438<>255 
AND c<30)-(IN 63486<>255 
AND c>l) 
PRINT AT 20,c; 
BRIGHT l;"H" 
PRINT OVER l; 
e Si © dl 
LET i=i+l 
LET q=q+INT (RND*3)-1+(3 
AND q<-30)-(3 AND q>30) 
IF q=0 OR q=31 THEN 


G; um 


INK 5; 


INK 6;AT i,q 


GO TO 1430 
PRINT OVER l; INK a i,q 
;"G": BEEP .01,15 


IF i=20 AND q=c THEN 
PRINT AT i,c; INK (RND*3)+ 
a:;E"<: PRINT INK FEoRl 10,5 
“#©h-Caro!"- ‘INR 7#%"Chée-*; 
ENK 753 FLASH 1: "PASTICCIO! 
Ps 4BBBP 3405: REP 3,15: 
PAUSE 50: GO TO 1600 
IF (IN 65278<>255 OR IN 3 
2766<>255) THEN GO SUB 1 
500: LET lp=1lp-1l \ 
IF lp=0 THEN GO TO 6000 
GO TO 1380 
PLOT INVERSE 1l;c*8+4,17: 
DRAW INK (RND*3)+4;0,148: 
BEBP 00,12: PLOT 
INVERSE 1;c*8+4,17: DRAW 
OVER 1;0,148 
IF (i>2 AND i<20) AND q=c 
THEN LET sc=sc+500: 


PRINT AT 0,4; INE*6;sc: 
BEEP .04,10: PRINT INK 6; 
MT +.,c:"E": BEEP L06082: 
PRINT AT '‘i,c;" ": DET al=a 
set: @0 TOI 
RETURN 
PRINT AT 20,05" ": LET sc=s 


c-200: IF sc<0 THEN 
PRINT AT 0,3; INK 6;sc 


IF sc>0 THEN PRINT AT 0,3; 
"4: LET at=at-l: IF at>0 
THEN GO TO 1335 

PRINT INK 4; FLASH 1;AT 10 
r4;"FOLLE!"; INK 5; FLASH 0 
;" Ne sono "; INK 6;"sfuggi 


te) 217 

BEEP .8,10: BEEP 1,4: 
BEEP 2,-10: BEEP 1,18: 
BEEP 1,-20 
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1600 
2000 


2010 


2020 


2030 
2040 
2050 
4000 
4100 
4110 
4200 


4210 


4300 
4310 
4400 
4410 
4500 


4510 


4600° 


4610 


4700 


4710 


4800 


4810 


5000 
6000 


GO TO 300 

BEEP .08,19: BEEP .2,10: 
BEEP .15,15: BEEP .4,25: 
FOR w=0 TO 20 STEP 2: 

BEEP .l,w: BEEP .05,4:. 
NEXT w: BEEP .4,25: BEEP... 
t515: BEEP .,2,10: BERP 8, 
15: :BRBEP --.1,8: BEEP 2;4 
BORDER 6: PAPER 6: INK 0: 
CLS 

PRINT AT 10,4; FLASH l;j "Hai 
salvato la Terra!";AT 14,7 
s "CONGRATULAZIONI!" 

PRINT AT 18,2; FLASH 0; "Pre 

mi un tasto per giocare" 
PAUSE 0 


GO--To<2" 

FOR n=0 TO 7 

READ a: POKE USR "a"+n,a: 
NEXT n 

DATA 459,233 ,115441192,255;25 
$i 2, 

FOR n=0 TO 7: READ b: 

POKE USR "b"+n,b: NEXT n 


DATA 68,99,50,;59,31,31,13,4 


FOR n=0 TO 7: READ c: 
POKE USR "c"+n,c: NEXT n 
DATA 145,227,166,238,252,12 


0,88,144 
FOR n=0 TO 7: READ d: 

POKE USR "d"+n,d: NEXT n 
DATA 36,60,24,60,36,102,255 
KIETI 
FOR n=0 TO 7: READ e: 

POKE USR "e"+n,e: NEXT n 


DATA 153,0,36,0,219,0,92,12 
9 
FOR n=0 TO 7: READ £: 

POKE USR "£"+n,f: NEXT n 
DATA 219,102,219,102,219,10 
Za219 202 
FOR n=0 TO 7: READ g: 

POKE USR "g"+n,g: NEXT n 
DATA 153,126,90,126,60,36,2 
4,24 


FOR n=0 TO 7: READ h: 


POKE USR "h"+n,h: NEXT n 
DATA 102,36,36,60,102,231,1 
09.231 
RETURN 
PRINT INK 2;AT 10,1; "Hai e 
saurito l'energia!": BEEP 5 
1-30: GO TO 300 


GP50A E GP50S 


le piccole stampanti per 
tutti 1 computer 


si REBIT 
SEIKOSHA * — e 
pu, | 
—_ GEO. 
— Start gela opta 
Piccole e com- sparati a 
patte dalle pre- costi in- 
stazioni grandi e credibil- 
generose, le mente 
GP50A e GP50S sorpren- 
sono realizzate denti. 
con standard pro- Particolare 


fessionali a misura 
di Personale Home - 
computer e si impongono muait soluzio- 
ne ottimale per gli usi hobbystici più di- 


attenzione merita la 


GP50S, stampante direttamente inter- 
facciata verso i computer Sinclair ZX81 e 
Spectrum. 


Caratteristiche: 


e Stampante ad impatto a matrice di punti 
da 46 colonne (32 colonne versione 
GP50S) 

e Matrice di stampa 5x8 (7x7 versione 
GP50S) 

e Percorso di stampa monodirezionale (da 
sinistra a destra) 

e Capacità grafiche con indirizzamento del 
singolo dot 

e Possibilità di ripetizione automatica di un 
carattere grafico 

e Velocità 40 caratteri/secondo (35 caratteri/ 
secondo versione GP50S) 


e Caratterizzazione: 12 cpi e relativo espanso 

e interfacce: parallela centronics (interfaccia 
Sinclair versione GP50S) 

e Alimentazione carta a frizione (largh. carta 
fino a 5”) 

e Stampa 1 originale e 1 copia 

e Set di 96 caratteri ASCII 

e Consumo 11W (standby) o 17W (stampa) 

e Livello di rumore inferiore a 60 dB 

e Durata di vita testa: 30 milioni di caratteri 

e Peso 1,5 KG 

e Dimensioni: 215 (prof.) x 250 (largh.) x 85 
(alt.) mm. 

e Nastro nero (standard); optionals: rosso, 
arancio, verde, blu, viola e marrone. 


di Carlo Panzalis 


l] programma in queste pagine trac- 
Iii sul video grafici di funzioni mate- 
matiche. Si tratta di un programma 
semplice, di facile esecuzione, suffi- 
cientemente versatile, dato che con- 
sente la variazione del range di osser- 
vazione dell'andamento della funzione 
e la sovraimpressione degli assi car- 
tesiani o, a richiesta, di un reticolo ad 
incremento variabile. “Plot”, oltre a 
consentire la verifica grafica di uno 
studio di funzione, permette di familia- 
rizzare rapidamente con l'andamento 
delle più comuni funzioni. 

Prima di addentrarci nell'esame delle 
diverse parti componenti il program- 
ma, è opportuno richiamare breve- 
mente, per chi fosse da qualche tempo 
lontano dai problemi dell'analisi mate- 
matica, alcuni fondamenti della stessa. 
Le funzioni compatibili con questo 
programma sono esclusivamente le 
funzioni monodrome, e non le polidro- 
me o a più valori: per funzione mono- 
droma si intende una qualsiasi corri- 
spondenza che, ad un elemento di un 
insieme X, associa uno ed un solo ele- 
mento di un insieme Y. In concreto, ad 
ogni valore attribuito alla variabile in- 
dipendente x, deve corrispondere un 
solo valore della variabile dipendente 
y. Può invece verificarsi il contrario, 
vale a dire che ad ogni y possono corri- 
spondere più valori di x, senza per que- 
sto uscire dall'ambito delle funzioni 
monodrome. Non possono invece es- 
sere inserite nel programma le funzio- 
ni che non rispettino tale convenzione, 
quali generalmente tutte quelle in cui 
la variabile dipendente y figura con 
esponente diverso da quello unitario 
(ad esempio la circonferenza di equa- 
zione xT2 + rî2, vale a dire yî2 = rî2 - 
xÎ2). 

Un altro concetto da tenere assoluta- 
mente presente è poi quello di campo 
di esistenza. Tutti ricorderanno che 
non è possibile l'operazione di divisio- 
ne se il divisore è zero. Ad esempio, 
data la funzione y= 1/x in corrispon- 
denza del valore x=0 si avrebbe 
y = 1/0, che non ha significato. Nell’in- 
trodurre la funzione nel programma, 
bisognerà fare in modo che i valori che 
rendono priva di significato la funzio- 
ne stessa non vengano assunti dalla x 


42 - SUPERSINC® 1/84 


del loop che la disegna, onde evitare 
l'arresto del programma e la comparsa 
di un errore del tipo “A Invalid Argu- 
ment”. 

Quanto detto sin qui per la divisione 
vale anche per altre operazioni, quali 
l'estrazione di radice quadrata e co- 


munque di indice pari (radicando < = 


zero) e il logaritmo (argomento< 
zero). Nel programma è stato in tal 
senso predisposto un procedimento 
che consente di attribuire alla x solo 
valori coerenti con le premesse sopra 
esposte, come vedremo in seguito. 
Un ultimo consiglio si rende necessa- 
rio in relazione ad un piccolo limite 
dello Spectrum: l’operazione di eleva- 
mento a potenza non viene eseguita se 
la base della potenza è un numero ne- 
gativo, mentre in realtà ci troviamo di- 
nanzi ad una operazione perfettamente 
lecita. Ricollegandosi alla definizione 
stessa di potenza, è possibile aggirare 
l'ostacolo esprimendo ogni volta la po- 
tenza come prodotto di basi (x*x inve- 
ce di xî2 e così via). 

Svolte tali premesse, possiamo ora 
passare a considerare il listato. In parti- 
colare la prima linea del programma 
consente di assegnare ai 12 indici di 
una matrice n$ le rispettive 12 strin- 
ghe (lunghe al massimo 40 caratteri): 
le stringhe in questione contengono le 
coordinate relative in virtù delle quali, 
muovendosi da uno “starting point”, si 
potranno tracciare i numeri corrispon- 
denti ai diversi step del reticolo che 
può essere associato al grafico della 
funzione al fine di renderne più agevo- 
le l'esame. Questo aspetto del pro- 
gramma sarà comunque diffusamente 
chiarito più oltre. 

Per quanto concerne la funzione og- 
getto di studio, essa viene inserita co- 
me stringa (f$) in corrispondenza 
dell'input posto alla linea 60: eviden- 
ziamo qui che di essa va sempre inseri- 
to il solo secondo membro (Es.: se la 
funzione data è y= xî2 - 3*x, si dovrà 
inserire solo xÎ2 - 3*x). 

Effettuata tale operazione, attraverso 
le diverse istruzioni comprese tra le li- 
nee 70 e 95 il programma richiede 
l'eventuale inserimento di condizioni 
di esistenza. Nel caso in cui la funzione 
sia definita in tutto il campo reale, nel 


programma verrà attribuito alla varia- 
bile “salto” il valore 1, consentendo 
così di saltare al momento opportuno 
un loop designato alla verifica delle 
condizioni in questione, nidificato in 
quello che concretamente traccia il 
grafico. 

Nel caso in cui siano invece richieste 
condizioni di esistenza, esse devono 
essere inserite come stringhe formula- 
te in modo tale da esprimere l'insieme 
dei valori per cui la funzione è definita. 
Per meglio chiarire gli aspetti di cui 
abbiamo trattato, consideriamo un 
esempio: sia data la funzione y= (log 
x)/(x-1). 

| passi da seguire sono: 


(i) introdurre la funzione: 

(LN x) / (x-1) 

(ii) rispondere affermativamente alla 
richiesta di condizioni. 

(iii) inserire “2” per indicare che questo 
è il numero di condizioni necessarie 
(iii) inserire le due condizioni x<0 e 
X < > 1, che stanno ad indicare che la 
funzione è definita solo per valori posi- 
tivi e maggiori di zero, ad eccezione 
del valore x = 1 in corrispondenza del 
quale vi è una discontinuità (peraltro 
eliminabile). 

Chiariti tali punti possiamo proseguire 
con l’esame del listato: in particolare 
attraverso i passi compresi fra le linee 
100 e 160 si determina il campo di os- 
servazione della funzione, sia in ascis- 
sa che in ordinata. Nel caso si intenda- 
no mantenere attivi i margini già previ- 
sti nel programma (da -12 a +12 in 
ascissa; da -9 a +9 in ordinata), è suffi- 
ciente rispondere affermativamente al- 
la richiesta di input posta alla linea 
100. Si rende forse opportuna una bre- 
ve precisazione in merito: con tali valo- 
ri si è inteso privilegiare un campo di 
osservazione abbastanza limitato, poi- 
ché è molto spesso in tale ambito che 
si ritrovano le più rilevanti peculiarità 
della funzione analizzata. Inotre il rap- 
porto 4/3 che intercorre fra i margini 
prescelti ripropone il rapporto fra pixel 
in ascissa e in ordinata: infatti la fine- 
stra prescelta per tracciare il grafico 
presenta 200 pixel in ascissa e 150-in 
ordinata. E evidente che rispettando 
quest'ultimo rapporto in sede di defini- 
zione dei margini, si evita di alterare il 
tracciato della funzione. L'utente può 
comunque, anche in considerazione 
delle caratteristiche della funzione og- 
getto di studio, attribuire ai margini 
qualsiasi valore desiderato, e questo 
semplicemente rispondendo negativa- 
mente alla richiesta di cui sopra, av- 
viando così una procedura di riasse- 
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gnazione dei valori ad essi relativi. 
Alla linea 180 vengono automatica- 
mente determinati i coefficienti di in- 
grandimento del grafico, e cioè “c” per 
la variabile indipendente e ‘“d” per 
quella dipendente; mentre alla linea 
190 viene identificato (indicandolo 
con “s”) lo step del loop che concreta- 
mente traccia il grafico. e che si svolge 
fra le linee 200 e 300. Questi parametri 
fanno sì che la funzione sia tracciata 
punto per punto, e ciò indipendente- 
mente dal range di osservazione pre- 
scelto. 

Ad ogni passaggio alla linea 200 la x 
(variabile indipendente) assume tutti i 
valori compresi fra i margini sinistro e 
destro; è invece il loop che inizia alla li- 
nea 220 che, effettuando un salto per 
tutti gli eventuali valori che rendono 
priva di significato la funzione sino alla 
linea 300 (NEXT x), consente di evitare 
l'arresto del programma, attribuendo 
così alla x solo valori compresi nel suo 
insieme di definizione. Le modalità se- 
condo cui tale procedura opera sono le 
seguenti: di volta in volta vengono 
considerati sia il valore di x a quel mo- 
mento, sia le diverse stringhe | $ con- 
tenenti le condizioni di esistenza. Se 
ogni singola proposizione è vera, cioè 
se il valore considerato di x verifica la 
condizione, il programma prosegue si- 
no alla linea 250 ove si determina il va- 
lore della stringa f$, vale a dire il valo- 
re della funzione in corrispondenza di 
quel dato valore di x. In caso contrario, 
e cioè se il valore attuale di x non sod- 
disfa la condizione, il programma salta 
alla linea 300 senza tentare di plottare 
il punto relativo a tale valore. 
Quando il valore della variabile indi- 
pendente è compreso nel campo di esi- 
stenza della funzione, alle linee 260 e 
270 vengono calcolate le coordinate in 
pixel per l’ascissa e per l’ordinata del 
singolo punto, mentre le condizioni 
poste alla linea 280 impediscono l’ar- 
resto del programma nel caso in cui ta- 
li coordinate siano al di fuori della fine- 
stra prescelta per designare il grafico. 
Infine la linea 290 imprime il punto se- 
condo quanto determinato nelle fasi 
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precedenti, traslato di 16 pixel in ascis- 
sa e di 20 in ordinata al fine di ottenere 
uno spazio ai lati della finestra, spazio 
riservato all'inserimento dei numeri re- 
lativi ai diversi step del reticolo. 
Ultimato il grafico apparirà sulla parte 
inferiore dello schermo una lista di 3 
opzioni (assi, reticolo, fine program- 
ma): per passare all’opzione desiderata 
è sufficiente inserire il numero ad essa 
corrispondente. Mancando nel Basic 
Spectrum l’utile ON...GO TO, alla li- 
nea 440 il GO TO è stato computato 
secondo i più semplici fondamenti del- 
la logica proposizionale booleana, se- 
condo i quali una proposizione vera ha 
valore 1, mentre una falsa ha valore 0. 
E dunque evidente che solo l’identità 
verificata fra le tre inserite alla linea 
440 assumerà valore 1, mentre le altre 
due, necessariamente false, assume- 
ranno valore 0, annullando il coeffi- 
ciente che le precede e consentendo 
così il salto alla linea desiderata. 

Fra le opzioni ora citate, merita ampio 
chiarimento quella concernente il reti- 
colo: anche l'opzione 1 risulterà chiara 
dopo tale disamina. 

Per tracciare il reticolo il programma 
viene rinviato alla linea 700: in questa 
fase viene richiesto un input, corri- 
spondente all'incremento desiderato 
delle ascisse. In relazione a questo pa- 
rametro il programma stamperà un da- 
to numero di linee parallele all'asse 
delle ordinate, numero ottenuto dal 
rapporto: 

(ampiezza intervallo di osservazione) / 
(incremento ascisse); 

questo numero è rappresentato dalla 
variabile ‘“t” alla linea 710, mentre alla 
linea successiva “k” determina la lun- 
ghezza dell’incremento calcolata in pi- 
xel, vale a dire il numero di pixel che 
separano due assi verticali consecutivi 
del reticolo. Le condizioni poste alla li- 
nea 730, infine, sono atte ad impedire 
che l'incremento delle ascisse non sia 
un divisore perfetto dell’ampiezza del 
range di osservazione. 

Procedimento analogo a quello de- 
scritto si svolge alle linee 800/830 per 
tracciare le parallele all'asse delle 


ascisse: in tal caso ‘“‘p’ svolge la mede- 
sima funzione della variabile ‘“t” vista 
sopra, mentre ‘“f’ rappresenta l’incre- 
mento in pixel. 

Nel gruppo di linee fra la 900 e la 970 
si trovano poi le istruzioni per tracciare 
materialmente il reticolo, le cui carat- 
teristiche sono appunto quelle deter- 
minate nelle due precedenti routines. 
Una volta terminato il reticolo restano 
solo da imprimere, in corrispondenza 
dei punti di partenza di ogni linea verti- 
cale ed orrizzontale, i numeri che 
esprimono il valore del punto di inter- 
sezione di ciascuna linea del reticolo 
con gli assi cartesiani, numeri reali che 
rendono più agevole l'esame dell’an- 
damento della funzione. La soluzione 
adottata è tale scopo si è resa necessa- 
ria in conseguenza del fatto che, pur 
consentendo lo Spectrum di trattare si- 
multaneamente pagina testo e pagina 
grafica, l'utilizzazione del comando 
PRINT AT avrebbe condotto ad un ri- 
sultato impreciso sotto l'aspetto for- 
male e grafico, ma soprattutto ineffi- 
ciente per il corretto abbinamento fra 
singolo asse e numero ad esso relativo. 
E infatti noto che sia i caratteri stan- 
dard sia quelli definibili dall'utente 
possono essere impressi solo nei 
22*32 quadratini in cui risulta diviso 
lo schermo, ciascuno dei quali è com- 
posto da 8*8 pixel. 

Poiché il numero di linee, sia verticali 
che orizzontali, è di volta in volta deci- 
so dall'utente attraverso l'inserimento 
degli incrementi desiderati, è presso- 
ché impossibile che il numero di pixel 
che separa ciascun asse da quello suc- 
cessivo sia sempre un multiplo di 8, 
vale a dire della lunghezza/altezza di 
ogni carattere. Per rispettare questa ul- 
tima condizione, l’opzione reticolo va- 
riabile non avrebbe potuto essere rea- 
lizzata, dovendosi trovare ogni linea di 
reticolo in posizione fissa rispetto alla 
finestra, limitando la versatilità di que- 
sto strumento. Se infatti si volessero 
mantenere variabili gli step del retico- 
lo, l’effetto risultante sarebbe stato 
normalmente impreciso e addirittura 
inattendibile in caso di reticolo molto 
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Variando opportunatamente la scala, è possibile ottimizzare 


lo spazio a disposizione. 


fitto: tale circostanza avrebbe infatti 
condotto alla sovraimpressione di nu- 
meri su altri già stampati, rendendo 
così vano l’ausilio rappresentato da ta- 
le opzione. 

Il problema in questione è stato dun- 
que risolto rinunciando ai caratteri re- 
sidenti, standard o definibili, compo- 
nendo 12 simboli (le 10 cifre, il meno, 
il punto) di dimensioni più piccole 
(6*5 pixel) che vengono impressi sul 
video non da PRINT, bensì da PLOT. 
Entrano cioè in gioco le 12 stringhe 
cui abbiamo brevemente accennato 
all’inizio della descrizione del listato, e 
che contengono le coordinate relative 
per tracciare i diversi simboli muoven- 
dosi da uno starting point determinato 
dal pixel di partenza di ogni linea, ver- 
ticale o orizzontale, e dalla lunghezza 
del numero da rappresentare. 

In particolare, per realizzare quanto so- 
pra esposto ci si avvale di 3 routine, va- 
le a dire quella che inizia alla linea 
1000 per i numeri riferiti all’incremen- 
to sull'asse delle ascisse, quella che 
inizia alla linea 1200 per i numeri rela- 
tivi all'incremento delle ordinate, ed 
infine la routine che inizia alla linea 
2000, comune alle due precendenti, e 
che realizza l'impressione dei numeri 
richiesti. 

Esaminiamo, a scopo semplificativo, 
lo svolgimento della procedura riferita 
al solo asse delle ascisse. La variabile 
“flag”, posta uguale a zero alla linea 
1005, ha lo scopo di impedire che il 
primo numero da stampare sullo 
schermo, nell'angolo in basso a sini- 
stra, esca dallo schermo. Tale variabile 
verrà continuamente aggiornata nel 
corso del loop che inizia alla successi- 
va linea di programma, onde evitare 
anche la sovraimpressione di un nu- 
mero su altri precedentemente impres- 
si. 

Il loop ora citato sfrutta una variabile 
di controllo (“j'’) che varia tra zero e il 
numero e il numero di linee verticali 
costituenti il reticolo, numero rappre- 
sentato da “t”. Alla linea seguente so- 
no inizializzate a zero due variabili: 
“sz”, che per tutta la durata di questa 
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fase sarà costante in quanto coefficien- 
te che determina l’ordinata del pixel da 
cui dovrà partire il plottamento sull’as- 
se delle ascisse, essi andranno impres- 
si su una ideale linea parallela a tale as- 
se); e “q” che influenza la variabile di 
controllo di un altro loop nidificato in 
quello che stiamo trattando, e che ini- 
zia alla linea 1100. Fra le linee 1020 e 
1060 si determinano il valore del nu- 
mero del numero da stampare e la lun- 
ghezza di tale numero, reso stringa; 
inoltre le condizioni alle linee 
1050/1060 arrotondano il numero da 
rappresentare a zero per valori molto 
prossimi a tale valore. 

Alla linea 1070 la variabile “sv” rap- 
presenta finalmente lo starting point, 
cioè il punto da cui ciascun numero 
dovrà essere plottato: questo parame- 
tro si ottiene moltiplicando l’incre- 
mento in pixel che separa due linee 


Schermata dell'opzione reticolo. Notare la corrispondenza 
delle linee con i rispettivi valori. 


verticali consecutive (“k”) e il numero 
ordinale di ciascuna linea (primo, se- 
condo e così via), sottraendo poi a tale 
prodotto la metà della lunghezza del 
numero da stampare reso stringa. | va- 
lori costanti in tale algoritmo tengono 
conto della traslazione della finestra in 


ascissa (16 pixel). A questo punto, se 
lo starting point non è minore di 
“flag”, inizia il loop che attraverso lo 
slicing e le operazioni di stringa indivi- 
dua di volta in volta il simbolo da rap- 
presentare ed il corrispondente indice 
relativo alla matrice n$, rinviando il 
programma alla routine di disegno alla 
linea 2000. In sostanza a quest'ultima 
routine si giunge considerando volta 
per volta una sola cifra (o un simbolo) 
del numero da rappresentare in corri- 
spondenza di un asse. La linea 2010 
contiene due variabili: “as”, che rap- 
presenta lo starting point; e “or”, che 
rappresenta l’ordinata di tale punto 
(costante in questa fase perché “sz” è 
sempre uguale a zero). Dalla linea suc- 
cessiva si avvia il loop che material- 
mente traccia il numero: qui “ss” è l’in- 
dice della matrice n$, corrispondente 
al numero trattato. Se, ad esempio, la 
cifra considerata è 3, il programma 
considera la stringa n$ (3) che natural- 
mente contiene le coordinate relative 
atte a disegnare tale cifra. Attraverso 
lo slicing vengono dapprima conside- 
rati i caratteri che occupano posizioni 
dispari nella stringa. Quindi, se il pri- 
mo carattere è uguale a 1, si procede a 
disegnare il punto di coordinate “as” e 
“sv”; in caso contrario il punto non vie- 
ne acceso sullo schermo (se cioè il pri- 
mo carattere in posizione dispari è ze- 
ro). 

In ogni caso dopo questa operazione 
viene considerato il primo carattere in 
posizione pari: se quest'ultimo è 1 vie- 
ne incrementata di una unità l’ascissa 
dello starting point, mentre se è 3 tale 
valore viene ridotto di una unità. Se in- 
vece il carattere considerato è 2 o 4 
viene allora rispettivamente aumenta- 
ta o diminuita l’ordinata di quel punto. 
In sostanza considerando gli elementi 
che compongono la stringa oggetto di 
esame, tutti i caratteri in posizione di- 
spari servono a decidere se il punto 
(as,or) debba o no essere impresso sul- 
lo schermo, mentre i caratteri in posi- 
zione pari rendono tale punto mobile 
in quattro direzioni; le differenti com- 
binazioni possibili consentono quindi 
di disegnare sullo schermo i simboli ri- 
chiesti che, lo ripetiamo ancora una 
volta, non sono caratteri standard del- 
lo Spectrum. Terminata questa opera- 
zione con riguardo alla prima cifra (o 
simbolo) del numero da rappresentare, 
il programma torna al loop della linea 
1100 ove si individua il successivo 
simbolo da disegnare, mentre nel con- 
tempo vengono aggiornati i valori del- 
le variabili rilevanti (“flag”, “sv”, “ss"”) 
e così via sino al termine del primo nu- 
mero da stampare, successivamente si 


identifica il numero da associare al se- 
condo asse verticale (siamo infatti an- 
cora all’interno del loop più esterno, 
quello che inizia alla linea 1010 e che 
individua appunto tutti i valori da rap- 
presentare sotto gli assi verticali), e si 
procede in modo analogo fino all’abbi- 
namento con l’ultima linea verticale. 


NOTA 


Le dieci cifre, il meno e il punto rappresentano i simboli che vengono impressi in 
corrispondenza degli assi cartesiani o delle linee orizzontali e verticali che costi- 


tuiscono il reticolo. 


Le coordinate relative per la loro impressione sono contenute nelle 12 stringhe 
che compongono la matrice n$(). 

Le quattro frecce stanno invece ad indicare la direzione in cui si sposta il punto 
mobile che traccia materialmente i simboli, direzione governata dai caratteri in 
posizione pari nelle stringhe n$(): spostamento verso destra se il carattere ‘letto’ è 
1; spostamento verso l’alto se è 2; e così via. 


stringhe contenenti le eventuali condizioni di esistenza 
è zero se la condizione 1$() non è verificata, altrimenti il suo 
rispettivamente variabile indipendente e dipendente 


margini (sinistro, destro, inferiore, superiore) del campo di 


incrementi per le ascisse e per le ordinate, volti a determi- 
nare il numero di linee che costituiranno il reticolo che si in- 
tende sovraimprimere al grafico della funzione 


distanza in pixel fra due linee verticali del reticolo 


distanza in pixel fra due linee orizzontali del reticolo 
numeri di volta in volta da rappresentare in corrispondenza, 
rispettivamente, di una linea verticale o orizzontale del reti- 


matrice di 12 stringhe contenenti le coordinate relative per 
tracciare 12 simboli (10 cifre, il meno, il punto) 

rispettivamente ascissa ed ordinata dello starting point, 
cioè del punto da cui si parte per plottare il numero vo z in 


numero indice della stringa n$ da considerare in relazione 


ascissa ed ordinata del punto che, partendo dallo starting 
point e muovendosi in una matrice di carattere di 6*5 pixel, 
traccia il simbolo da rappresentare sullo schermo secondo 
le istruzioni contenute nelle diverse stringhe n$ 

variabile che impedisce la sovraimpressione di un numero 


consente di plottare nuovamente la funzione 


f$ stringa contenente la funzione di studio 
1$() 
qe numero di condizioni da porre 
PPP 
valore è uno 
Ry 
a, b coordinate in pixel del punto da plottare 
ms,md,mb,ma 
osservazione 
Cc, @ coefficienti di ingrandimento del grafico 
S step del loop che traccia il grafico 
ix, iy 
t numero di lineee verticali del reticolo 
k 
p numero di linee orizzontali del reticolo 
f 
Vi Z 
colo 
v$, z$ numeri v e z resi stringhe 
lv, Iz numero di caratteri di v$ e z$ 
n$() 
SV, SZ 
corrispondenza di una linea di reticolo 
Ss 
al simbolo che si deve disegnare 
as, Or 
flag 
su altri già tracciati 
cont 
salto 


consente di saltare il loop di verifica delle diverse condizio- 
ni di esistenza nel caso in cui la funzione sia definita in tutto 
il campo reale 


ESEMPI PER L’INSERIMENTO DELLE FUNZIONI E DELLE CONDIZIONI 


(1) 


(2) 


(3) 


(4) 


Funzione y = SIN x 

Inserire SIN x 

Condizioni: nessuna 
Funzione y = SIN x/x 

Inserire (SIN x/x) 

Condizioni: una ---- x >< 
Funzione y = log (x? - 3x +2) /x 
Inserire (LN (x*x - 3*x +2)) /x 
Condizioni: una ---- x < > 0 
x<1 OR x>2 

Funzione y = xCOS x - SIN x 
Inserire x* COS x - SIN x 
Condizioni: nessuna 


Ultimate queste operazioni, il pro- 
gramma passa alla nuova routine per 
tracciare i numeri relativi all’incremen- 
to delle ordinate, che parte dalla linea 


1200. In tale contesto la procedura se- 
guita è la medesima: cambiano solo 
poche variabili che debbono tener con- 
to delle differenze. Infatti, mentre nella 
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routine precendente l’ascissa dello 
starting point (“sv”) dipendeva sia dal 
pixel di partenza di ciascuna linea ver- 
ticale sia dal numero di simboli da im- 
primere, qui il parametro dipende solo 
dalla lunghezza del numero trattato 
come stringa. Inoltre, mentre là l’ordi- 
nata dello starting point era costante, 
in questo caso tale variabile (rappre- 
sentata da ‘“sz”) dipende dal pixel di 
partenza di ciascuna linea orizzontale. 
Fatte queste premesse, il procedimen- 
to si svolge come già descritto. Termi- 
na così l'opzione reticolo; tuttavia il 
programma non ha ancora termine: in- 
fatti rispondendo affermativamente al- 
la richiesta di continuazione che appa- 
re al di sotto del reticolo, è possibile 
sia procedere nuovamente al plottag- 
gio della funzione (modificando even- 


Plot 
versione per ZX Spectrum 


5 REM ***** PLOT ***** 

GO SUB 4000 
LET salto=0 

20 IF cont=0 THEN GO TO 60 
"VUOI MODIFICARE LA F 00 
IF c$="s" OR c$="S" THEN 
LET ms=-12: LET md=1l2: 
LET mb=-9: LET ma=9: 


10 DIM n$(12,40): 
15 LET cont=0: 


30 INPUT 
UNZIONE ?";c$ 


40 IF c$<>"s" AND c$<>"S" 
AND c$<>"n" AND c$<>"N 


16K/48K 


tualmente i margini estremi del campo 
di osservazione), sia inserire una nuova 
funzione da analizzare. In conclusione, 
una volta inserita correttamente una 
funzione e definito il suo campo di esi- 
stenza attraverso le eventuali condizio- 
ni inserite come stringhe, è possibile 
osservarla ripetutamente in diverse ‘fi- 
nestre” del campo reale, centrando il 
range di osservazione sul peculiare an- 
damento di ogni funzione. È cioè pos- 
sibile, ad esempio, studiare una cubica 
(y= x?) dapprima nell’ambito dei mar- 
gini standard, e poi in margini più ri- 
stretti per quanto riguarda l’ascissa 
(es.: da -3 a +3), mantenendo invece 
inalterati i margini per l’ordinata (da -9 
a +9): l’unica considerazione da tener 
presente è che in questo modo si altera 
l'andamento della funzione a causa 


100 CLS 


STANDARD ? 
scissa 
r ordinata 


della diversa scala di misura sui due 
assi. 

Infine, l’ultima parte del programma 
(da linea 9000) costituisce una pagina 
grafica di presentazione: salvando il 
programma con la opzione LINE riferi- 
ta a quest'ultimo numero di linea, lo si 
renderà autopartente. 

Per concludere intendiamo segnalare 
che alcune peculiarità di “Plot”, quali 
la composizione di stringhe contenenti 
informazioni per disegnare simboli 
grafici di qualsiasi dimensione, o la 
‘computazione booleana’ dei comandi 
GO TO, possono trovare largo impiego 
in ogni tipo di programma al fine di su- 
perare alcuni piccoli vincoli propri del 
pur ottimo BASIC Spectrum. 


‘"VUOI MARGINI 
(S/N) "'*"per a 
Fe jane ire 

9 / 9 )" 


PRINT 


(-12 / 
(0S 


° INPUT c$ 


110 


120 


Te ch" RAND CRC"? 
AND c$<>"n" AND c$<>"N 
" THEN BEEP 


+ bi be (G00T0-.I 


*TREN (BREP 63,12: GOLTO 4 GO TO 170 
0 130 PRINT '"ASCISSA :MARGINE SI 
50. IF c$="n" OR c$="N" THEN NISTRO *%; 3:  INPUT=«mns: 
GO TO 100 PRINT ms 
60. CLS..: PRINT AT 19,0; "Funzio 140 PRINT "ASCISSA :MARGINE DE 
ne": PLOT 0,14: DRAW 63,0: STRO ";: INPUT md: PRINT m 
INPUT "y=";£fS$ d 
65 PRINT.AT-_2L:0,"y="; £S'' 150 PRINT "ORDINATA:MARGINE INF 
70 INPUT "ci sono condizioni ? ERIORE ";: INPUT mb: 
Rai. PRINT mb 
73 IF- c$<>"s" AND c$<>"S" 160 PRINT "ORDINATA:MARGINE SUP 
AND c$<>"n" AND c$<>"N ERIORE ";: INPUT ma: 
SIRENE 5,12: GO TO 7 PRINT ma 
0 170 PAUSE 20: CLS 
75 IF-c$="n"-OR c$="N" THEN 175 REM definizione coefficient 


LET salto=l: 


"qc 


85 DIM 1$(qc,20): PRINT 
PLOT 0,6: DRAW 8 


IzIOnI "3: 


0,0 
90 FOR u=l TO qc: INPUT "C. E. 210 
":1$(u): PRINT 'l$(u): 220 
NEXT u 225 
95 PAUSE 0 230 


99 REM definizione range varia 


zione 
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GO TO 100 
80 INPUT "quante condizioni ? 


i di ingrandimento 


180 LET c=200/(md-ms): LET d=15 
0/(ma-mb) 
! "Cond 190 LET s=1/c 
200 FOR x=ms TO md STEP s: 


REM loop 


IF salto=1l1 THEN GO TO 
FOR u=l TO qc 

LET ppp=VAL 1$(u) 

IF ppp=0 THEN GO TO 300: 
REM eventuali condizioni d 
‘esistenza 


250 


800 
810 


820 
830 


900 


NEXT u 

LET y=VAL f$: REM funzione 
LET a=(x-ms)*c 

LET b=(y-mb)*d 

IF b<0 OR b>150 THEN 

GO TO 300 

PLOT a+16,b+20 

NEXT Xx 

PRINT AT 21,0;"1)ASSI 2) 
RETICOLO 3) USCIRE": 

REM opzioni 

INPUT <r 

IF r<>l AND r<>2 AND r 

<> 3: THEN : BEEP ‘.5,,12: 

GO TO 400 


FOR h=0 TO 31: 
ha v- NEXT h 
GO TO (500*(r=1)+700*(r=2)+ 
5000*(r=3)) 

LET oq=-(ms*c) 

IF og<0 OR 0qg>200 THEN 

GO TO 550 

PLOT 0q+16,20: DRAW 0,150 
LET sv=0qg+15 

LET ss=10: LET sz=0 
GO SUB 2000 

LET ow=-(mb*d) 

IF ow<0 OR ow>150 THEN 

GO TO 600 

PLOT 16,0w+20: DRAW 200,0 
LET sv=232: LET sz=0w+8: 
LET ss=10 
GO SUB 2000 

PRINT AT 0,0;" " 
GO TO 1500 

INPUT "INCREMENTO X ? 


PRINT AT 21, 


bely 


LET t=(md-ms)/ix 

LET k=(200*ix)/(md-ms) 

IF t-INT t<>0 THEN 

PRINT AT 21,0; "INCREMENTO 
X NON COMPATIBILE": PAUSE 3 
0: FOR h=0 TO 31: PRINT 
NP: 2kh10%- 0 WET h: 

GO TO 700 

INPUT "INCREMENTO Y ? dit È 
LET p=(ma-mb)/iy 

LET £=(150*iy)/(ma-mb) 

IF p-INT p<>0 THEN 

PRINT AT 21,0; "INCREMENPO 
Y NON COMPATIBILE": PAUSE 3 
0: FOR h=0 TO 31: PRINT 
AT: 21,b;" "> MREP 

GO TO 730 

REM reticolo 


910 
20 
930 
950 
960 


970 
1000 
1005 
1010 
1020 
1030 
1040 
1050 


1060 


1070 
1080 


1090 


1100 
1110 
1120 


1130 


1140 
1150 
1155 
1160 
1180 
1200 
1205 
1210 
L42149 
1220 
1230 
1240 
1250 
1260 


1265 


1270 


FOR j=0 TO t 

PLOT k*j+16,20: DRAW 0,150 
NEXT j 

FOR j=0 TO p 

PLOT 216,£*]+20: DRAW -200, 
0 È | 


REM numeri ascisse 

flag=0 

j=0 TO.t 

sz=0: LET q=0 

LET v=ms+tix*j 

LET v$=STRS (v) 

LET lv=LEN (v$): IF VAL (v$ 
)>-0.1 AND VAL (v$)<0 

THEN LET v=0? LET v$="0": 
LET lv=1 

IF VAL (v$)>0 AND VAL (v$)«< 
0.1 THEN LET v=0:. DE? v$Ss=" 
0": LET Lveb 

LET sv=k*3j-6*1v/2+12 

IF sv<=flag+t2 THEN GO TO 1 
160 


IF v$(l TO 1)="è" THEN 
LET sv=sv+3: LET ss=l1l: 
LET q=1: GO SUB 2000 


FOR i=l+q TO lv 
LET sv=sv+6 
IF v$(i TO .i)="/" THEN 
LET sv=sv-3: LET ss=12: 
GO SUB 2000: LET sv=sv-2: 
GO TO 1150 
LET ss=VAL (v$(i.TO.i1)): 
IF ss=0 THEN LET ss=10 
GO SUB 2000 
NEXT i 
LET flag=sv-2 
NEXT j 
PRENT AT 0,057 " 
REM numeri ordinate 
LET flag=l1 
IF p>20 THEN LET flag=2 
IF p>40 THEN LET flag=4 
FOR j=0 TO p STEP flag 
LET q=0 
LET z=mb+tiy*j 
LET z$=STR$ (z) 
LET iz=eLBN (2z5.,£T1F VAL (28 
)>-0.1 AND‘VAL'(28)<0 
THEN- > LET 2404 ‘+LET*409="0". 
LET lz=l1 
IF VAL (z$)>0 AND VAL (z$)< 
0.:1-THEN*-LET \2=0* LBY 25=" 
0": LET l1z=l1l 
LET sv=244-1z*6: LET sz=f*]j 
+9 
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IF 1z>6 THEN GO TO 1360 
IF=Z2$S(1:T0 1)="-" THEN 
LET sv=sv+6: LET ss=l1l: 
LET q=l: GO SUB 2000 

FOR i=l+q TO lz 

LET sv=sv+6 

TF 2S(i TO i)="." THEN 
LET ss=12: GO TO 1340 

LET ss=VAL (28$8(i TO #)): 
IF ss=0 THEN LET ss=10 

GO SUB 2000 

NEXT i 

NEXT j 

INPUT "VUOI CONTINUARE ? 
(S/N) ",e$ 

IF e$<>"s" AND e$<>"S" 
AND e$<>"n" AND e$<>"N 
VITNENS"BRER<<5,i27 GO TO C1 
500 

IF e$="S" OR e$="s" THEN 
LET cont=1l: GO TO 20 

GO TO 5000 

REM 

LET as=sv: LET or=9+sSz 
FOR g=1 TO 40 STEP 2 

IF (n$(ss)(g TO g)=" ") 
THEN LET g=40: GO TO 2200 


IF (n$(ss)(g TO g)="1") 


AND (as>=0) THEN PLOT as, 
Or 
LET s$=n$(ss)(g+1 TO g+l): 


LET 1L1=*VAL (#9) “GO TO (21 
00+10*il) 

REM 

LET as=as+l: GO TO 2200 

LET or=or+l: GO TO 2200 

LET as=as-1: GO TO 2200 
LET or=or-l: GO TO 2200 
NEXT g 

RETURN 


REM matrice 
BET "nS(1)="0T101121212Z121212 
" 


LET n$(2)="1212020212011111 
04140314031404111111" 
LET n$(3)="0212020212011111 
04140314011414031312" 


LET n$(4)="0212121201120114 
141414111403130212" 

LET n$(5)="0212021212111111 
140404141403131202021111" 
LET n$(6)="0212121212011111 
140303041111041414031312" 
LET n$(7)="0202020202111111 
141414031403140312" 
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4080 
4090 
4100 
4110 
4120 
4150 


5000 
9000 


9005 
9010 


9015 


9020 


9025 


9030 


9035 


9040 


9045 


9050 


9055 


9060 


9070 
9080 


LET n$(8)="0212120212011111 
041403131401011414031312" 
LET n$(9)="1202021212011111 
041414131314010114031312" 
LET n$(10)="021212121201111 
10414141414031313" 

LET n$(11)="02020201111111" 


LET n$(12)="0O10111" 


RETURN 

STOP 

CLS PRINT AT 5,2; FLASH l 
s"F ERMA IL NAST 


R-0 "FAT 16:59; (FLASH -<0; "Pr 
emi un tasto": FOR h=0 TO 2 
4: BERP .l,h°> NEXT ih: 

PAUSE 0 
CLS 
FOR. x=*0 TO 255 STEP 8: 

PLOT x,0: DRAW 07,167: 

NEXT x 
FOR y=0 TO 175 STEP 8: 


PLOT 0,y: DRAW 247,0: 
NEXT y 

FOR t=16 TO 96: PLOT 24,t: 
DRAW 7,0: NEXT t 


FOR t=96 TO 88 STEP -l: 
PLOT 32,t: DRAW 39,0: 
PLOT 32,t-40: DRAW 39,0: 
NEXT t 

FOR t=56 TO 88: 
DRAW 7,0: 


PLOT 64,t: 
NEXT t 


FOR t=48 TO 120: 
DRAW 7,0: NEXT t 


PLOT 96,t: 


FOR t=48 TO 96: PLOT 128,t: 
DRAW 7,0: PLOT 168,t: 
DRAW 7,0: NEXT t 


FOR t=96 TO 88 STEP -Ll: 
PLOT..136 rt: DBAW:.39%;.0: 
PLOT 136,t-40: DRAW 39,0: 
NEXT t 


FOR t=48 TO 120: PLOT 200,t 
: DRAW 7,0: NEXT t 
FOR t=112 TO 104 STEP -1: 
PLOT 192,t: DRAW 32,0: 
NEXT t 
FOR x=-10 TO 10 STEP 0.2: 
INK 2: LET y=SIN (x): 
PLOT x*10+128,y*10+151: 
NEXT x 
PAUSE 150: 
RUN 


CLS INK 0 


di Nicholas Wyre 
trad. e adatt. Marcello Spero 


In quanto tempo potete salvare la 
vostra adorata principessa? 


copo di questo gioco è liberare 
Sho principessa dalla prigionia del 
malvagio King Kong, il gorilla gigante. 
Per riuscire in questa impresa dovrete 
superare tre fasi. 
1 - Arrivare alla prigione in cui è segre- 
gata la principessa salendo le scale fi- 
no all'ultimo livello, con il rischio di 
cadere in uno dei buchi o di finire cal- 
pestati da uno dei gorilla di guardia. 
Una volta giunti al livello più elevato 
avrete due alternative per raggiungere 
la principessa: sgattaiolare fra le zam- 
pe di King nel momento in cui c'è spa- 
zio o salire sul barile rotolante e in en- 
trambi i casi correte il rischio di fare 
una brutta fine: essere presi da King o 
cadere dal barile. 
2 - Non appena liberata, la principessa 
correrà verso l'ascensore e vi entrerà. 
A questo punto dovrete scendere nuo- 
vamente fino al primo livello e preme- 
re il bottone posto nell'angolo sinistro 
in basso dello schermo, per far partire 
l'ascensore. 
3 - Infine dovrete togliere tutti i bulloni 
che tengono insieme il pavimento dei 
vari livelli, passandoci sopra. Quando 
avrete fatto saltare l’ultimo bullone 
King Kong rovinerà verso il basso, e 
sarà la sua fine. Attenti, però: se duran- 
te un'altra fase del gioco avrete inav- 
vertitamente tolto uno o più bulloni 
non potrete completare la vostra pro- 
va; quindi, attenzione! 


Consigli per l’uso 


Trascrivete tutto il programma e quin- 
di date RUN 1170: vedrete il solito 
messaggio “start tape, then press any 
key” che precede ogni registrazione; 
preparate il registratore e salvate il 
programma su cassetta. Una volta ef- 
fettuata questa operazione il computer 
passerà automaticamente alla creazio- 
ne dei caratteri grafici; quindi vi chie- 
derà di nuovo di preparare il registra- 
tore: fatelo partire in modo da salvare 
la grafica subito di seguito al program- 
ma. A questo punto tutto è pronto: ba- 


sterà infatti fare LOAD “KING-KONG” 
per ottenere l’autostart del program- 
ma, che immediatamente caricherà la 
grafica. 

Per i proprietari della versione 16K, in- 
vece, la procedura sarà leggermente 
diversa. Il programma, infatti occupe- 
rebbe tutta la memoria disponibile, 
senza lasciare spazio per le variabili, 
ed il funzionamento sarebbe quindi 
impossibile. Per aggirare questo osta- 
colo fate così: 

1 - trascrivere il programma solo fino 
alla linea 1170 

2 - date RUN 1170 e salvatelo su cas- 
setta 

3 - date NEW 

4 - trascrivete la restante parte del pro- 
gramma, cioè le linee 1180-1290 

5 - date RUN 1180 e salvate la grafica, 
subito al programma 

6 - date NEW per eliminare questa par- 
te del programma, che in effetti è inuti- 
le. 


Linee Commento 


10-30 


A questo punto potete caricare il pro- 
gramma, che partirà da solo carican- 
dosi la sua grafica. 

Infine una possibile modifica per varia- 
re la difficoltà di gioco. La “cattiveria” 
con cui i gorilla vi inseguono è control- 
lata dal numero in linea 160, che nor- 
malmente è 0.75. Se lo portate ad 1 i 
gorilla non vi inseguiranno per niente, 
muovendovi a caso, mentre se ne di- 
minuite il valore sarete inseguiti più 
spesso. 


Controlli 


I tasti che guidano il vostro personag- 
gio attraverso lo schermo sono: 

- per saltare a sinistra 

- per correre a sinistra 

- per scendere una scala 

- per salire una scala 

- per correre a destra 

- per saltare a destra 


OOLNDUIA 


Descrizione del programma 


Il programma comprende due parti: il 
programma vero e proprio e la routine 
di caricamento per i caratteri grafici. 
Qui di seguito trovate una breve spie- 
gazione delle varie operazioni compiu- 
te dal programma. 


carica i caratteri grafici 


40-50 
60-140 
100-130 
140-270 
190-320, 
370,380 
330-360 
280,390 


420-440 
450-470 
480-520 
530-550 
560-610 
620-650 
660-670 
780-800 
810-830 
840-870 
880-900 
910-920 
930-970 
980-990 


1000-1160 


inizializza il contatempo 

ciclo principale del programma 
disegna King Kong 

muove i gorilla ed il barile 


muove il vostro personaggio 

controlla se avete urtato qualcosa 

controlla se avete raggiunto la principessa o premuto il 
bottone 

vi avvisa che siete morti 

vi chiede se volete giocare ancora 

cadete in un buco 

siete morti 

avete spezzato la corda che sostiene il barile 

avete pestato un bullone 

la principessa corre all’ascensore 

saltate a sinistra 

saltate a destra 

cade il pavimento di un livello 

l'ascensore sale con la principessa 

salta l’ultimo bullone, e con lui precipita King Kong 
volete giocare ancora? 

vi viene comunicato che avete realizzato il miglior tem- 
po 

creazioni dello scenario 
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King Kong 
versione per ZX Spectrum 16K/48K 


10 


20 


30 


40 


50 
60 


70 


80 


REM "KING-KONG" 
di NILCHOLAS WYR 
E 
LOAD "GRAFICA"CODE USR "A", 
18*8: BORDER 2: INK 3: 
PAPER 5: CLS : LET H=9999: 
LET N$="NICHOLAS WYRE" 
LET X=0: LET.E=l: LET F=-l: 
LET C=1: LET V=21: LET G=5 
00: LET M=21: LET N=2: 
LET. E-l: LET T=0: :LET_:Es=" 


G": GO SUB 1000: LET B=2: 

LET bat 

POKE 23672,0: 
POKE 23674,0 

DEF FN S()=INT ((PEEK 23672 
+PEEK 23673*256+PEEK 23674* 
65535) /50) 

PRINT AT M,N; INK 1; OVER 1 
;E$: BEEP .05,10: PRINT 

AT M,N; OVER l; INK 1l;ES 
PRINPT:AT"2;B:-INK-1;" R si 


POKE 23673,0: 


IRE, 1. 


PRINT AT 9,05". Lobo ho"; 

AP 13.,Vet:b SLotLeBgAE027,C 

oa L L L na RT 211019 L L 
e " 


LET ZS$=INKEYS 

IF RND<.5 THEN PRINT AT 3, 
19;"{G3}"; INVERSE l;"#"; 
INVERSE 0;"{SG7}": GO TO 1 
20 

PRINT AT 3,19; "A{SG8}C" 

IF RND<.5 THEN PRINT AT 5, 
19;"D E": GO TO 140 

PRINT AT 5,19;"ED " 

IF B=2 THEN LET D=1 

IF B=6 THEN LET D=-1 

IF RND<.75 THEN GO TO 220 
IF V>2 AND V>N THEN LET V= 

val 

IF V<21 AND V<N THEN LET V 

=V+1 

IF C<21 AND C<N THEN LET C 


=C+1 

IF C>2 AND C>N THEN LET C= 
C-1 

GO TO 270 


LET C=C+E: LET V=V+F 
IF C>21 THEN LET E=-l1 
IF C<3 THEN LET E=l 
IF V<3 THEN LET F=l1l 


260 
270 
280 


290 


340 


350 


450 


460 


470 


480 


IF-V>21 THEN: .LET'F=:1 

LET B=B+D 

IF M=2 AND N=l11 AND X=0 
THEN GO SUB 660 

IF Z$="7" AND ATTR (M-1,N)= 
41 THEN LET E$="N": LET M= 

M-1 

IF Z$="6" AND ATTR (M+1,N)= 
41 THEN LET E$="N": LET M= 

M+1 Di 


IF Z$="5" AND N>0 THEN 
LET N=N-1: LET E$="K" 

Te: Ed="@"  AND'N<39T07 
THEN LET E$="H": LET N=N+ 
1 

IF SCREEN$ (M,N)<>" " 

AND ATTR (M,N)=40 THEN 
GO TO 420 

IF SCREEN$ (M,N)=" " THEN 
GO TO 560 vs; 

IF SCREEN$ (M+1,N)=" " 
AND M<>21 THEN GO TO 48 
0 

IF ATTR (M+1,N)=107 THEN 
GO SUB 620 

IF Z$="4" AND N>1 THEN 

GO SUB 780 

IF Z$="9" AND N<30 THEN 
GO SUB 810 

IF M=21 AND N=0 AND X=1 
THEN GO SUB 880 

BEEP .01,1 

GO TO 60 

PRINT AT M,N; FLASH 1;"0"; 


AT:10,13:"CRUNCH" 

FOR N=0 TO 7: FOR X=0 TO 7: 
BEEP .05,N: BORDER RND*7: 
NEXT X: NEXT N 

PAPER 3: INK 7: CLS: 
PLASH:1: PRINT AT=8,5;("‘K 

ING KONG TI HA PRESO " 

AND M=5) ;AT 8,5;("SEI STAT 

O SCHIACCIATO " AND M<>5 

) 


PRINT AT 18,1;"PREMI UN TAS 


TO"''" PER GIOCARE ANCORA"; 
AT 14,l; "MIGLIOR TEMPO = "; 
H!''"di "=: né 
IF INKEYS="" THEN BEEP 
sRND*25: BORDER RND*7: 
GO TO 460 
FLASH 0: BORDER 2: INK 3: 
PAPER 5: CLS : GO TO 30 
IF SCREENS (M,N)<>" " 
THEN LET M=N-1l: GO TO 530 
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.Ol 


550 


560 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


710 


720 
730 


740 


750 


760 


PRINT AT M,N;"G";AT M-1,N;" 
" 

IF M=21 THEN GO TO 530 

LET M=M+1: BEEP .03,M 

GO TO 480 

PRINT AT M,N; FLASH ll; 

AT 10,13; "SPLATI" 

FOR N=0 TO 7: FOR S=7 TO 0 
STEP -1: BEEP .01,S*N: 
BORDER S: NEXT S: NEXT N 

PAPER 4: INK l: CLS: 

FLASH l: PRINT AT 8,9;"SEI 
. CADUTO" ;AT 10,4;" LA PARTI 
TA E' FINITA": GO TO 450 
PRINT NT 1L,2;"- SEAT 2 
ehi |";AT 3,2;"| 
|";AT 4,2;"R":. LET N=N+(1l 

AND N=2)-(I AND N=7) 

FOR A=2 TO 5: PRINT AT A-1, 


o " 
LA 


Fo" : 


BEEP .04,M 

PRINT AT A,N;"G": NEXT A 
LET M=5 ri 

GO TO 530 

LET T=T+1: PRINT AT M+l,N; 


IF SCREEN$ (M+1,27)="-" 
AND N=13 THEN GO SUB 840 
IF SCREEN$ (M+1,13)="-" 
AND N=27 THEN GO SUB 840 
BEEP .01,50: RETURN 
LET x=l 

PRINT AT 0,8; FLASH l; 

MM": BEEP 1,10 


FOR A=11 TO 13: PRINT AT l, 


As” P';AT4V&;" Q":0 BEEP . 
05,A: NEXT A 

INK l 

PRINT AT 2,14;"F": BEEP .05 
150 


FOR A=14 TO 25: PRINT AT 0, 
A;" P";AT 1,A;"{G3}0": 

BEEP .01,A: NEXT A 

PRINT AT 0, b3;"OFE*;ATohel4; 
up" 

FOR A=0 TO 3: PRINT AT A,2 
6;"F":;AT A+1,26;"P";AT A+2, 
26;"0": BEEP .05,A: NEXT A 
PRINT AT 4,26; "FP";AT 5,26; 
"FQ": BEEP .0,50 
FOR A=27 TO 29: PRINT AT 4 
rh PAT S,Ap3:00r BEEP . 
05,A: NEXT A 

INK l: PRINT AT 4,29;"{G5}" 
*AT"5,/29x*{05}®rAT430; 
FLASH 1;"P‘pAT:5,30,"0" 
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"'MMMM 


770 
780 


790 


800 
810 


820 
830 
840 


850 
860 


870 


880 


890 
900 


910 


920 


FLASH 0: RETURN 
PRINT AT M-1,N-l; OVER 1l;"J 
": BEEP .05,M: PRINT AT M-1 
,N-1; OVER la "J": BEEP .05, 
M 
IF SCREEN$S (M,N-2)<>" " 
AND ATTR (M,N-2)=40 THEN 
GO TO 420 
LET N=N-2: RETURN 
PRINT AT M-1,N+1; OVER l;"I 
":: BEEP .05,M: PRINT AT M- 
1,N+1; OVER 1l;"I": BEEP .05 
,M 
IF SCREENS$ (M,N+2)<>" " 
AND ATTR (M,N+2)=40 THEN 
GO TO 420 
LET N=N+2: RETURN 
IF T=8 AND X=2 THEN 
GO TO 910 
FOR Q=M+1 TO M+4 


BEEP .01,0: PRINT AT Q-1,14 
Aa : SSAT ua 14; 
INVERSE 1; "###4444444444 
WYrONEXTIOQ 

RETURN 

LET X=2: PRINT AT 4,30;" 
{SG8}":AT 5,30;"{SG8}"=AT 3 
,30;"{SG8}" 

BEEP 1,0 


FOR A=5 TO 2 STEP -l: 

PRINT AT A,29;" PRATT A=-3 
r293"{G5}{SG8}{SG5}": 

BEEP .1,A: NEXT A: PRINT 
AT 2;/507°" "$ BBEP"y1340% 
PRINT'AT 15291" 73 

BEEP .1,15: PRINT AT 0,29; 
E ": BEEP 1,20: RETURN 


LET S=FN S(): 
e "RIONI: 
seo) a 
BEEP 


PRINT AT 2,20 
"A"; INVERSE l 
INVERSE 0;"CGULP!": 
05727 PRERNP AT33;199? 

"AT 4719; 

‘INVERSE Le*@ "AT Sr 80; 
DI BEEP .5,3: PRINT AT 4, 
dos" NP Si RO: TCMRAP15)ì 
9;"B"; INVERSE 1; "0. 53 i 

INVERSE ore: BEEP «23 
FOR Q=6 TO 21: PRINT AT O, 1 
4; INVERSE L;"############# 
## TNVERSE: 0;AT:0-2;19;" 


PART O-L;143" 19 
INVERSE l;"BC "; INVERSE 0 
«E “WiBEBR:705 01 


NEXT Q: FOR J3=-50 TO 50: 
BEEP .03,J: NEXT J 


930 PAUSE 100: CLS : PRINT AT 2 1120 PRINT AT 3,29;"{G5}{G3} 
75; "HAI ELIMINATO KONG {SG5S}":AT 4,29;"{G5} {(8G5S}” 
E SALVATO LA PRINCIPE i vene dt + ii rd se i 1-) ti 
SSAZIIO TEMPO = ";S INK..6;AT_0,30;"|";AT-.1,30; 
940 IF S<H THEN GO SUB 980 ESA 2,305)” 
950 PRINT AT 13,5; "MIGLIOR TEMP 1130 INK 0: PRINT AT 2,20;"B"; 
O = ";H''" DEL PRODE ";N$ AT 3,19;"A{SG8}C";AT 4,20;" 
{SG8}":AT 5,19;"D E" 
960 PRINT AT 18,0; FLASH l;" 1140 INK 3: BRIGHT l: PRINT AT 6 
PREMI UN TASTO ri3; +CERT64271}"+*5AP 10,1 
PER GIOCARE ANCORA 3f"+"*AT 10,27:"+"-Av 14.13 
": BORDER RND*7: "PAT: 14,2T7} "E "5h Jada 
BEEP .01,RND*25: IF "+";AT 18,27;"+" 
INKEYS="" THEN GO TO 960 1150 BRIGHT 0: INK 0 
970: BEEP 1,8: CLS : GO TO 30 1160 RETURN 
980 LET H=S: INPUT "HAI REALIZZ 1170 SAVE "KING-KONG" LINE 10 
ATO IL MIGLIOR TEMPO 1180 FOR A=144 TO l6l 
SCRIVI IL TUO NOME, PREGO " 1190 FOR U=0 TO 7 
;N$ 1200 READ I 
990 RETURN 1210 POKE USR (CHR$ A)+U,I 
1000 FOR Q=5 TO 21: PRINT AT 0,0 1220 NEXT U 
po INK-13 DEU AT Q,31;"F": 1230 NEXT A 
NEXT Q 1240 DATA 0,0,16,8,7,31,7,24,126 
1010 PRINT AT 6,1; INK 0; ,219,219,255,27,103,195,126 
INVERSE 1l;"############### r0,248,2524252,28; 602016; 
44444444444#4#4#4###":AT 10,0;" 31,127,127, 22,60, 100780 
#{SG8}##{SG8}#{SG8}##{SG8}# 1250 DATA 254,254,254,2,2,0,0,0, 
{SG8}#################{SG8} 66,66,66,126,66,66,66,66,56 
#":AT 14,1;"###{SG8}#### ,40,16,254,186,186,40,108,2 
{SG8}#{SG8}####4############ 4,29,10,60,88,30,98,65 
#{SG8}##":AT 18,0; "#### 1260 DATA 48;58,20,24,24;4;56;0; 
{SG8}##{SG8}###{SG8}####### V.72,40 74-24, 32./ZA DIET 
###4#44#####{SG8}#" 84,80,60,58,120,70,130,153, 
1020 PRINT AT 11,0; OVER l; 189,153,255,60,60,102,195 
INE: 29. {ee e 1270 DRTA 0,345119,127,62728,8,8 
1030 FOR 0=7 TO 8: PRINT AT 0,31 28, 28,400 28,283, 0-00, 
* OVER l; INK 2;"}";AT 0+8, 0,0; 16,97,221.,255, 129, 15A;1 
31;"}": NEXT0 89,189,153,255,24,24,24,60, 
1040 PRINT AT 19,0; PAPER 4;"@"' 60,126,126,255,255,219 
nEeninen 1280 DATA 56,66,129,165,165,129, 
1050 ‘INK 1:: PRINT AT. 1;2}" 66,56 
n 1290 SAVE "GRAFICA"CODE USR "A", 
1060 PRINT AT 4,26; "E";AT 5,26;" 18*8 
PUSAT 4: 1:*P'r KP 5,1: 
1070 FOR Q=0 TO 3: PRINT AT Q,l; 
"P";AT Qu "FUSAT Q,14;"E"; 
AT Q,26;"E": NEXT Q Spedite 
1080 PRINT AT 0,9; FLASH l;"AIUT i vostri programmi 
1090 di AT 3,95 INK 0 migler = 
r IÀ , 
INVERSE l;"##4####";AT 1,15 vl, 
* INK 1;"{11SG3}" seno 
20124 Milano 


1100 PRINT AT 1,11;"P";AT:2,11;" 


" 
1110 INK 1 
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di Marcello Spero 


Ovvero, come realizzarsi in casa il 
proprio «Pac»... 


Il gioco, una versione del classico 
di tutte le sale giochi, coinvolge 
un piccolo esserino affamato di punti- 
ni, inseguito da due fantasmi affamati 
di lui. Ai quattro angoli del labirinto, 
per fortuna, ci sono le famose pillole di 
energia che permetteranno al nostro 
eroe di mettersi alla caccia dei fanta- 
smi: ma in fretta! L'effetto delle pillole 
è infatti limitato, e da un momento 
all’altro i mostri potrebbero rivolgerrsi 
nuovamente contro di lui. L'effetto del- 
le pillole è reso evidente dal cambia- 
mento di colore dei fantasmi, che di- 
ventano verdi e lampeggianti. Di tanto 
in tanto apparirà una ciliegia, proprio 
sotto la tana dei mostri: mangiata, da- 
rà 10 punti. Ogni puntino, invece, vale 
un punto mentre le pillole e i mostri 
fruttano 10 punti ciascuno. Realizzare 
punteggi elevati è semplicissimo: ba- 
sta sopravvivere abbastanza! 
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Descrizione delle variabili 


punteggio 

punteggio record 

punteggio corrispondente ad uno schermo completo 
il labirinto 

se è meno di 30 i mostri possono essere mangiati 
il numero di vite rimaste 

la vostra posizione 

la vostra immagine 

la posizione del primo fantasma 

la posizione del secondo fantasma 

se è -1 i mostri fuggono da voi, se è 1 vi cercano 
ciò che c’è sotto il primo fantasma 

ciò che c’è sotto il secondo fantasma 

livello di gioco 

viene usata per vari scopi 


Descrizione del programma 


Linee 

1-2 

3-4 
10-50 
60-260 
270 
280-290 
295 
300-320 
330 
340-370 
dI 
380-400 


410 
415 
420 
425-490 
500 
510-535 


540-545 


550 

1000-1030 
1500-1540 
1600-1640 
1700-1730 
1800-1830 
2000-2050 


5000-5070 
7000-7090 
8010-9000 
9000-9030 


9500-9530 


Commento 

crea i caratteri grafici 

inizializza alcune variabili 

i dati per la grafica 

crea in b$ il labirinto 

disegna il labirinto 

inizializza altre variabili 

stampa il punteggio record 

visualizza voi e i fantasmi 

decide se visualizzare la ciliegia 

legge la tastiera e va alla subroutine corrispondente 
stampa il punteggio 

controlla cosa c'è nella vostra posizione, e aumenta il 
punteggio di conseguenza 

visualizza il vostro personaggio 

se lo schermo è stato completato va alla linea 5000 
visualizza ciò che era sotto i fantasmi 

muove in maniera appropriata i fantasmi 

incrementa cont 

visualizza i fantasmi, in verde lampeggiante se cont è 
minore di 30, o ciano e magenta se è maggiore 

se occupate la medesima posizione di un fantasma va 
alla linea 9000 

aggiorna d$ e$ 

visualizza la ciliegia 

muove il vostro personaggio verso destra 

muove il vostro personaggio verso sinistra 

muove il vostro personaggio verso l’alto 

muove il vostro personaggio verso il basso 

se mangiate una pillola di energia le variabili vengono 
aggiornate di conseguenza 

routine grafica fra uno schermo e l’altro 

seleziona il livello di gioco 

avete mangiato un fantasma 

siete stati mangiati, e le variabili vengono aggiornate di 
conseguenza 

la partita è finita, e le variabili vengono preparate per la 
partita successiva 


Chomp Chomp 
versione per ZX Spectrum 16K/48K 


20 


30 


40 


50 


RESTORE 0: FOR a=144 TO 164 
FOR b=0 TO 7: READ c: 

POKE USR CHRS a+tb,c: 

NEXT b: NEXT a 


LET s=0:0LET hs=0: LET t=18 
O: DIM bs (21,2%) LET cont= 
30 

LET vite=3 


GO SUB 7000 

DATA 0,255,0,0,0,0,0,0,0 
0,0,0,0,255,0,0,255,0,0, 
1255,0,0,248,4,2,2,2,2,2 
DATA 0,31,32,64,64,64,64,64 
r0,63,64,128,128,64,63,0,0, 
25242751 ,1,22:92,0 

DATA 2,2,2,2,2,4,248,0,64,6 
4,64,64,64,32,31,0,2,2,2,2, 
2,2,2,2 

DATA 0,24,36,66,66,66,66,66 
r66,66,66,66,66,36,24,0,64, 
64,64,64,64,64,64,64,66,66, 
66,66,66,66,66,66,0,0,16,56 
r124,56,16,0 

DATA 24,60,30,15,30,60,24,0 
r0,0,34,119,127,62,28.,80,2 
4,60,120,240,120,60,24,16,5 
6,124,254,238,68,0,0,56,126 
790219,255; 255, 255,147, 2,6 
r10,20,36,68,238,68 


r0, 
0,0 


PAPER l: BORDER l: CLS : 
INK 7: PAPER 0 

LET b$(1)="EAAAAAAAAANAAARA 

ARAAD" 

LETMBRTAYB "Mi 3 VANTI 
e a 


LET b$(3)="M.EAD.EAD.N.EAD. 
EAD.J" 

LET b$(4)="MOM J.M J.N.M J. 
M JOJI" 

LET b$(5)="M.IBH.IBH.L.IBH. 
IBH.J" 

LET b$(6)="M..\i<sic0 100000 
3a «GR 

LET b$(7)="M.FCG.K.FCACG.K. 
FCG.I" 

LET b$(8)="M.....Nci0Ni5. N, 
RE du 

LET b$(9)="IBBBB.MCG.L.FCJ. 
BBBBH" | 

LET b$(10)=" J. 
eM ULI 


N..00000N 


160 


170 


401 


405 


LET b$(11)="BBBBH.L.E---D. 
.IBBBB" SAT 


b 


LET ET b$ (12)="/.......M Ps, 
ORTA a, dog 
LET b$(13)="AAAAD.K.I---H.K 
. EAAAA" CORE 
LET b$(14)=" Ti 
eM " ii # i N 
LET b$(15)="BBBBH.L.FCACG.L 
.IBBBB" i 
LET MP DE (16) #"M a VRAIRZE 
e eo RO 0 de 


LET b$(17)="MOFCD.FCG. L. FCG 
.ECGOI" 

LET: been. RI 
«N. dl - AA 

LET b$(19)="AAD.L.FCCCCCCCG 
.L.EAA" ie 


LET b$(20) «Sogn ian i 
ia n 

LET b$(21)=" AAAAAAAAAAAA 
AAA " 

FOR:n=l TO 21: PRIWMNAT ni 
sb$ (n): BEEP .05,n+15: 

NEXT n 

LET y=14: LET x=12: LET a$= 
" R" ì 
LET gx=12: LET gy=12: LET g 
xl1=12: LET gyl=ll: LET c=l: 
LET d$=" ":(EE esatti 


PRINT AT 0,19; "RECORD =";hs 


PRINT AT gx,gyi NK. 3-9p" 
PRINT. AT gxl,gylj(INK- 95 


PRINT AT y,x; INK 6;a$ 
IF INT (RND*100)=0 THEN 
GO SUB 1000 


IF INKEY$="8" THEN 
GO SUB 1500 
IF INKEYS="5" THEN 


GO SUB 1600 
IF INKEY$="7" THEN 
GO SUB 1700 
IF INKEY$="6" THEN 
GO SUB 1800 


IF b$(y,x)="(" THEN'LET s= 
S+l:0 BEEP .05)25 

IF b$ (y,x)="0" THEN LET s= 
s+10: BEEP. .1,25: BEEP: .1,3 
9: GO SUB 2000 

LE b$ (y,x)="U" THEN LET s= 
s+10: LET t=t+10: BEEP .1,2 
9: BEEP::.1,.36 

PRINT AT 0,0; "VITE =";vite; 
> PUNTI"; 


LET b$ (y,x)=" da 
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410 
415 
420 


425 
430 


435 
440 


445 
450 


455 
460 


465 
470 


472 
475 


477 
480 


485 
490 


500 
510 
520 


525 


PRINT AT y,xX; INK 6;a$ 
IF s=t THEN GO TO 5000 
PRINT AT gx,g9y;d$;AT gxl,9y 
lj;je$ 
IF RND<a THEN GO TO 440 
IF gy<x THEN LET d=CODE b$ 
(gx ,gy+c): IF d<>47 AND d 
<>92 AND d<144 OR d>157 
THEN LET gy=gy+c: GO TO 4 
70 
IF RND<a THEN GO TO 450 
IF gy>x THEN LET d=CODE b$ 
(gx,9y-C): IF d<>47 AND d 
<>92 AND d<144 OR d>157 
THEN LET gy=gy-c: GO TO 4 
70 
IF RND<a THEN GO TO 460 
IF gx<y THEN LET d=CODE b$ 
(gx+c,gy): IF d<>47 AND d 
<>92 AND d<144 OR d>157 
THEN LET gx=gx+c: GO TO 4 
70 
IF RND<a THEN GO TO 470 
IF gx>y THEN LET d=CODE b$ 
(gx-C,g9y): IF d<>47 AND d 
<>92 AND d<144 OR d>157 
THEN LET gx=gx-c 
IF RND<a THEN GO TO 475 
IF gyl<x THEN LET d=CODE b 
$(gxl,gyl+c): IF d<>47 
AND d<>92 AND d<144 OR d 
>157 THEN LET gyl=gyl+c: 
GO TO 500 
IF RND<a THEN GO TO 480 
IF gyl>x THEN LET da=CODE b 
$S(gxl,gyl-c): IF d<>47 
AND d<>92 AND d<144 OR d 
>157 THEN LET gyl=gyl-c: 
GO TO 500 


IF RND<a THEN GO TO 490 

IF gxl<y THEN LET d=CODE b 
$(gxl+c,gyl): IF d<>47 

AND d<>92 AND d<144 OR d 
>157 THEN LET gxl=gxl+c: 
GO TO 500 

IF RND<a THEN GO TO 500 

IF gx1l>y THEN LET d=CODE b 
$S(gxl-c,gyl): IF d<>47 

AND d<>92 AND d<144 OR d 
>157 THEN LET gxl=gxl-c 
LET cont=cont+1 

IF cont>=30 THEN LET c=1 
IF c=-1 THEN PRINT AT gx,g 
yi INK-4; FLASH 1;"T" 

IF c=1l THEN PRINT AT FX, 9Y 
3: AIMK 33 o 
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530 


DIO 
540 
545 


550 


1000 
1010 
1020 
1030 
1500 
1505 
1510 
1520 
1525 
L990 
1540 
1600 
1605 
1610 
LOS 
1620 
1625 
1630 
1640 
1700 
1705 
1710 
1720 
1725 
1730 
1800 
1805 


1810 


IF c=-1 THEN PRINT AT gxl, 


IF c=1l THEN PRINT AT gxl,g 
VASINE ST" 

IF gx=y AND gy=x THEN 

GO TO 9000 

IF gxl=y AND gyl=x THEN 
GO TO 9000 

FLASH 0: LET d$=b$(gx,gy): 
LET e$=b$(gxl,gyl): 

GOTTO. 330 
IF b$(14,11)= 
RETURN 
PRINT AT 14,11; INK 2;"U": 
BEEP. 5;15: IF-b$(14;41) =" 
." THEN. LET tst.1 

LET b$(14,11)="U" 

RETURN 

PRINT AT y,x;" " 

IF b$(y,x+1)="." THEN 

LET x=x+1l: GO TO 1530 

IF b$(y,x+1)=" " THEN 

LET x=x+1: GO TO 1530 

IF b$(y,x+1)="U" THEN 

LET x=x+1 54 

IF b$(y,x+1)="\" THEN 

LET x=2 
LET a$="R" 
RETURN 
PRINT.AT Y,X;#0" 

IF b$(y,x-1)="." THEN 

LET x=x-1: GO TO 1630 

IF b$(y,x-1)=" " THEN 

LET x=x-l1: GO TO 1630 

IF b$(y,x-1)="O" THEN 

LET x=x-1: GO TO 1630 

IF b$(y,x-1)="/" THEN 

LET x=20: GO TO 1630 

IF b$(y,x-1)="U" THEN 

LET x=x.-1 de 


"9° TREE 


LET a$="P" 

RETURN 

PRINT AT y,x;" " 

IF b$(y-1,x)="." THEN 
LET y=y-l: GO TO 1725 
IF b$(y-1,x)=" " THEN 
LET y=y-l: GO TO 1725 
IF b$(y-1,x)="O" THEN 
LET y=y-1l: GO TO 1725 

LET a$="0" 

RETURN ©’ 


PRINT AT y,x 


IF b$(y+1, x)="." THEN 


LET y=y+l: GO TO 1825 
IF b$(y+1,x)="O" THEN 
LET y=y+1l: GO TO 1825 


1815 


1825 
1830 
2000 
2010 
2020 
2030 
‘2040 
2050 
3000 
3010 
3020 
3030 
3040 
4010 


4020 
4030 
5000 
5010 
5020 


5030 
5040 


5050 
5060 
5070 
6010 
6020 
7000 
7010 
7020 
7030 
7040 


7060 
7070 


7080 
7090 
8000 


PRINT AT 1l1,4;"SCEGLI IL LI 


AAAAAAAAAAAAAAAAAARA" 


IF b$(y+1,x)=" " THEN 8010 IF gyl=x AND gxl=y THEN 


LET y=y+1 LET s=s+10: LET t=t+10: 
LET a$="S" LET gyl=11: LET gx1=12: 
RETURN ©" BEEP .05,20: BEEP .05,10: 
LET c=-l1 BEEP .1,10: GO TO 550 
LET b$(y,x)=" " 9000 IF cont<=30 THEN GO TO 800 
PRINT AT y,X;a$ 0 
LET t=t+10 9005 LET vite=vite-1l 
LET cont=0 9010 PRINT AT y,x; FLASH l;a$: 
RETURN FOR n=50 TO 0 STEP -l: 

IF y>d THEN LET d=d+g BEEP .05,n: NEXT n 

IF x>f THEN LET f=f+h 9020 IF vite<=0 THEN GO TO 9500 
IF x<f THEN LET f=f-h 

IF x<d THEN LET d=d-g 9030 GO TO 270 

RETURN 9500 IF hs<s THEN. LET hs=s 

LET d=gx: LET f=gy: 9510 PRINT AT 8,10;"PREMI";AT 10 

RETURN 0; "UN TASTO PER RICOMINCIA 
LET d=gxl: LET f=gyl RE" 

RETURN 9520 IF INKEYS$="" THEN GO TO 95 
CLS : PRINT AT 10,31;"0O" 20 

FOR n=1 TO 27 9530 PAPER l: LET s=0: CLS: 
PRIMT. AT L10,ngINK 5;" T_" PAPER 0: LET t=180: LET vi 
s «ER: 10PR° te=3: GO TO 60 


BEEP .05,n: NEXT n 

FOR n=27°DOU1 STEP -l: 
PRINT AT 10,n; FLASH 1; 
RR; "T"; FLASH 0; INK 7; 
" P " 


BEEP .05,n: NEXT n 
LET t=t+180 
GO TO 60 
LET gx=d: LET gy=f: 
RETURN 
LET gxl=d: LET gyl=f: 
RETURN 
PRINT AT 0,10; "CHOMP CHOMP" 
sTAB 9;"{Gl}{11G3}{G2}" 
PRINT AT 9,0; "AAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAARA" 


VELLO (1-5) na 

PRINT TAB 5;"(5-e* -ibpiù! 
facile)" 

PRINT AT 14,0; "AAAAAAAAAAAA 


LET a=CODE INKEY$-49 

IF a>5 OR a<0 THEN GO TO 7 
060 

LET a=a+l: LET a=a/10 
RETURN 

IF gy=x AND gx=y THEN 

LET s=s+10: LET t=t+10: 
LET gy=12: LET gx=12: 

BEEP: .05,20: BEEP .05,10: 
BEEP...1,10:. GO TO 550 
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a cura di 
Lucio Bragagnolo 


Stonkers 


Avete mai affrontato in 
campo aperto il vostro computer? 


Si tratta di un tipico boardgame (una 
simulazione militare a tavolino) adatta- 
to per lo Spectrum 48K. Lo scopo del 
gioco è quello di sconfiggere il compu- 
ter distruggendo le sue truppe o pene- 
trando nel suo quartier generale. Ciò 
avviene individuando su una mappa a 
piccola scala la zona delle operazioni, 
per poi ingrandire la stessa e muovere 
le proprie unità (divisioni corazzate, 
fanteria e artiglieria) come si desidera. 
Contemporaneamente il calcolatore 
svilupperà la sua strategia e gestirà gli 
scontri tra le unità nemiche in contat- 
to. Non è finita qui, però: le nostre 
truppe hanno necessità di essere rifor- 
nite, e dovremo provvedere alla biso- 
gna con quattro unità addette, a cui fa- 
remo fare spola tra le unità combatten- 
ti e il porto a cui periodicamente at- 
traccano mercantili inviati dallo Spec- 
trum. E ovviamente possibile in ogni 
momento avere la situazione del no- 
stro esercito per sapere dove i riforni- 
menti sono più urgenti, così come pos- 
siamo conoscere la situazione logisti- 
ca di ogni singola unità; per ottenere il 
massimo risultato occorre però saper 
utilizzare i dati a propria disposizione 
per ottimizzare spostamenti e tempi di 
decisione — come dire avere attitudi- 
ne al comando... 

L'unico limite (relativo) di questo gio- 
co è la velocità di svolgimento: ma è 
già sorprendente vedere una “scatolet- 
ta” come lo Spectrum gestire un pro- 
gramma del genere! Comunque, dopo 
un paio di minuti al massimo (in cui, di 
solito, tutti spostano le proprie armate 
con presunzione quasi hitleriana e pia- 
ni a lunghissimo respiro) vi sono già 
decisioni cruciali da prendere, la situa- 
zione rifornimenti si fa assillante. In 
mancanza di una strategia efficace, si 
finirà per assistere senza possibilità di 
reazione alla distruzione totale delle 
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nostre unità, impotenti di fronte alla 
supremazia avversaria. Per quando poi 
si saranno affinate strategie e tattiche, 
il programma saprà ancora metterci in 
difficoltà, grazie a un secondo livello 
di gioco, naturalmente più impegnati- 
vo. In conclusione, per chi ama i giochi 


(92) 
= 
rd 


"m 
o) 
A 


intelligenti (o è stufo del solito spara-e- 
fuggi e desidera provare qualcosa di 
più stimolante), ci troviamo di fronte a 
un gioco che vale senz'altro la pena di 
provare. 


Alchemist 


Una avventura sotterranea dalla 
mille sorprese 


Si potrebbe definire una adventure ani- 
mata. Siamo nelle vesti di un mago, 
capace di trasformarsi in aquila all’oc- 
correnza, ed esploriamo le camere del 


TI 
©) 
x 
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sotterraneo all’interno del quale ordi- 
sce le sue perfide trame il maligno 
Warlock. Il nostro compito è quello di 
trovare le quattro parti di un potentis- 
simo incantesimo di distruzione e di 
utilizzarlo contro il nostro mortale ne- 
mico. Nelle varie camere del sotterra- 
neo troveremo incantesimi di minore 
potenza ma indispensabili, armi, og- 
getti vari (spesso solo apparentemente 
fini a sè stessi, ma... non possiamo dire 
di più!) trappole, nutrimento e... le 
guardie di Warlock; massi rotanti, for- 
miche, nubi magiche, teschi volanti — 
ed è solo l’inizio. Anche un mago, pe- 
rò, può avere dei problemi: questi so- 
no costituiti dalla forza magica (che 
cresce col passare del tempo, ma dimi- 
nuisce con l’uso) e la forza fisica (che 
decresce costantemente e ci costringe 
a cercare nutrimento... o altro...). Inol- 


tre, non è possibile portare con sè nel- 
lo stesso momento più di un incantesi- 
mo e un oggetto — o un'arma. 

La grafica è perfetta e il gioco, fin dalla 
(bellissima) sigla iniziale contiene tutti 
gli ingredienti per avvincere fin 
dall'inizio e creare seri grattacapi per 
trovare... la fine! Dimenticavamo: il 
gioco necessita di 48K RAM. 


ALCHEMIST 
(cod. DIGMS03) 

e STONKERS 
(cod. DIGMS06) 
sono in vendita presso: 
TECHNOCLUB via 
Rosellini, 12 
20124 Milano 
a L. 13.000 cad. più 
L. 2.000 per spese di 
spedizione. I programmi 
possono essere ordinati 
utilizzando il coupon 
pubblicato a pag. 66. 
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a cura di 
Lucio Bragagnolo 


Programmazione 
dello 
ZX Spectrum 


Preîazione a cura di 


Programmazione dello ZX 
Spectrum 


Tim Hartnell 


prefazione a cura di Clive Sinclair 
ed. Gruppo Editoriale Jackson 
L. 18.000 


Preso in mano il libro, la prima cosa 
che ha suscitato la nostra curiosità è 
stata ovviamente la prefazione, di Cli- 
ve Sinclair in persona; ci chiedevamo 
che cosa avesse spinto il creatore dello 
Spectrum ad appoggiare con il suo no- 
me questo testo, apparentemente uno 
degli ormai tanti in circolazione e, so- 
prattutto, cosa avesse da dirci. Dobbia- 
mo confessare che, dopo aver ritenuto 
il suo breve scritto un po’ sbilanciato 
(vedi affermazioni tipo “Questo libro... 
vi aiuta a raggiungere una abilità di 
programmazione che, senza il suo aiu- 
to, potrebbe richiedere anni per essere 
acquisita’), in seguito alla lettura ci 
siamo dovuti ricredere. Effettivamente 
sir Sinclair ha ragione: questo non è un 
libro come gli altri, o per lo meno non 
è come gli altri libri, bensì trattasi di — 
citiamo testualmente — “un utile com- 
plemento al manuale fornito con lo 
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Spectrum”, in grado di rivolgersi al 
programmatore in erba come a sinclai- 
risti esperti che desiderassero aumen- 
tare le loro conoscenze. 

Basta, per convincersene, dare un'oc- 
chiata al sommario: accanto ad argo- 
menti “normali” (Esploriamo il colore 
dello Spectrum, Giocare con lo Spec- 
trum), si possono vedere trattati temi 
piuttosto insoliti come “Usare lo Spec- 
trum in affari”, “Usare lo Spectrum a 
scuola” o “Grafica tridimensionale”, 
capitoli in genere riservati a pubblica- 
zioni specifiche. Evidentemente, non 
era possibile parlare diffusamente di 
tutte le applicazioni possibili di un cal- 
colatore, per cui l’autore (il noto Tim 
Hartnell) ha dovuto forzatamente effet- 
tuare una scelta di argomenti e lavora- 
re di sintesi: il tutto, però, senza rinun- 
ciare ad un approccio estremamente 
rigoroso con le materie trattate e ad 
una chiarezza e linearità di linguaggio 
esemplari. 

In ogni capitolo si parte da considera- 
zioni di carattere generale e alla porta- 
ta del neofita più ingenuo, per arrivare 
progressivamente alla stesura di uno o 
più programmi inerenti al tema. Que- 
sti ultimi vengono dapprima scritti nel- 
la maniera più sintetica possibile, per 
poi venire arricchiti passo dopo passo 
da messaggi di input, opzioni partico- 
lari, commenti dettagliati e tutte le 
possibilità grafiche e sonore a disposi- 
zione dello Spectrum. Il lettore si trova 
così a disporre di una serie di program- 
mi — da grafici a didattici, dai giochi 
alla piccola contabilità — di buona ef- 
ficacia e semplicità, spesso collegabili 
con minima fatica ottenendo risultati a 
volte davvero sorprendenti: valgono 
per tutti come esempi il capitolo “affa- 
ri”, dove si arriva alla fine disponendo 
di un potenziale “pico-multiplan” do- 
mestico, o le pagine dedicate al sono- 
ro, dove potreste avere qualche picco- 
la inaspettata sorpresa, o la trattazione 
dell'istruzione INK 9 nella parte grafica 
... troverete, alla fine, dopo il capitolo 
dedicato al linguaggio macchina, per- 
fino una piccola storia dei calcolatori e 
una utile tabellina delle specifiche del- 
lo Spectrum. 


Insomma, un libro, anzi, un comple- 
mento al manuale veramente alla por- 
tata di tutti e che fornisce la possibilità 
di compiere un salto di qualità come 
programmatore... o forse, in omaggio 
all'ultimo nato di casa Sinclair, do- 
vremmo dire un Quantum Leap! 


tasy Programming 
for the 


lan Stewart and 
Robin Jones 


Easy programming for the 
ZX Spectrum 
(programmazione facile 
per lo Spectrum) 


Ian Stewart/Robin Jones 


ed.Shiva Publishing Itd. 
prezzo medio di vendita L. 16.900 


Nell’introduzione gli autori precisano 
come scopo di questo libro il “descri- 
vere le possibilità dello Spectrum che 
un neoutente dovrebbe conoscere”. E, 
sebbene questo sia solamente il primo 
di una serie di tre volumi (completata 
da “Further Programming for the ZX 
Spectrum” — programmazione avan- 
zata per lo Spectrum — e “Spectrum 
Machine Code”, il linguaggio macchi- 
na dello Spectrum) il materiale messo 
a disposizione dei lettori supera ugual- 
mente di gran lunga i semplici bisogni 
primari degli acquirenti dell'ultima ora 
per soddisfare anche i programmatori 
medio-scarsi desiderosi di progredire. 
Il libro infatti comprende ben 26 capi- 
toli, dal ritmo serratissimo, più una 
trentina di programmi pronti all’uso 
comprendenti il software gradualmen- 
te sviluppato negli esempi e alcune 
routine di varia utilità. 


OFFERTISSIMA - EXELCO — 


La EXELCO vi propone due vantaggiosissime combinazioni COMMODORE I 
Affrettatevi è un’OFFERTA irrepetibile!!! 


Combinazione n° 1] er —_ ————— ——- 
fee ele 
° 1 COMMODORE C64 699.500 unitario Totale 
° 1 Registratore «MAXTRON» 82.000 COMBINAZIONE 1: 
° 1 Libro «C64 EXPOSED» 24.000 n° 1 COMMODORE C64 
og L. 750.000 
Totale 
A SOLE L. 750.000 L. 258.000 
IVA INCLUSA n° 1 Cassetta Software 
«RIDE ON FORT KNOX» 


n° 1 Registratore «MAXTRON» 
n° 1 Libro «C64 EXPOSED» 
n° 1 Libro «Impariamo 
ad usare il personal computer» 
n° ] Cassetta Software 
Combinazione n° 2 
| Desidero ricevere il materiale indicato nella tabella, a mezzo pacco postale 
| contro assegno, al seguente indirizzo: 
n° 1 COMMODORE VIC 20 L. 149.000 | Nome CIELI DELE ZELLO 
n° 1 JOYSTIC «TRIGA» L 31.000! coon EEE E TTI 
dere i RL ERETTA 
ad usare il personal computer L. 25.000 
A 
L. 
L. 


n L. 
n L. 
n L. 
n° ] Libro «Impariamo 
ad usare il personal computer L. 25.000 
n° 1 Cassetta Software 
L. 20.000 
li 


«Garden Wars» della JCE 


n° 1 Libro «Impariamo 
ad usare il personal computer» 
n° 1 Cassetta Software 
«ADVENTURELAND» 


«Garden Wars» JCE 
COMBINAZIONE 2: 
n° 1 Cassetta Software bosa CLETI LIETI LI 
«ADVENTURELAND» #8:000-::43,; FOOD GRETI 4 #@#CLTTO 


n° 1 COMMODRE VIC 20 
n° 1 JOYSTIC «TRIGA" 
n° 1 Cassetta Software 1°-ge 
«RIDE ON FORT KNOX» 49.000 | Desidero ricevere la fattura [si] 
Partita |.V.A. o, per i privati Codice Fiscale 


Totale 3 
| PAGAMENTO: 
2 58.000 . A) Anticipato, mediante assegno circolare o vaglia postale per l'importo totale 
dell’ordinazione. 
IVA INCLUSA | B) Contro assegno, in questo caso, è indispensabile versare l'acconto di Lire 50.000 


mediante assegno circolare o vaglia postale. Il saldo sarà regolato contro assegno. 
AGGIUNGERE: L. 5.000 per contributo fisso. | prezzi sono comprensivi di I.V.A. 


| EXELCO e RAR 
NON PERDETE QUESTE OCCASIONI!!! I 


SI ACCETTANO FOTOCOPIE DI QUESTO MODULO D'ORDINE 


Sono interessanti, tra le altre cose, ben 
5 capitoli dedicati all'impostazione ed 
esecuzione di un corretto e funzionale 
debugging, che potranno risultare 
molto utili specie agli autodidatti tutto 
genio e sregolatezza, sempre in diffi- 
coltà quando si tratta di “ripulire” e da- 
re organicità alle loro (in genere) disor- 
dinatissime anche se spesso brillantis- 
sime creazioni. Quanto poi alle “chic- 
che”, segnaliamo il capitolo “Plotting” 
dedicato in gran parte al filling di figu- 
re chiuse — soprattutto circolari, le più 
ostiche — in grado di far risparmiare 
discrete quantità di tempo nel tentati- 
vo di risolvere il problema, “Curve 
plotting”, un'esauriente e finalmente 
chiara guida alla rappresentazione gra- 
fica di funzioni (contenente tra l’altro i 
suggerimenti per modificare la scala di 
rappresentazione e un ampio set di 
funzioni già pronte per chi odia la tri- 
gonometria) e il capitolo “Peek and 
Poke”, di introduzione ai primi rudi- 
menti del linguaggio macchina. Gli al- 
tri capitoli, chi più chi meno, trattano 
le varie feature dello Spectrum con un 
impostazione di tipo manualista, me- 
todica nell'esposizione e facente largo 


uso di esercizi ed esempi. Anche se in 
lingua originale, la comprensione del 
tutto non risulta particolarmente diffi- 
cile, sia per l'inglese semplice utilizza- 
to sia per la chiarezza di spiegazioni ed 
esempi. A volte la trattazione assume 
un ritmo piuttosto spedito che, gli au- 
‘tori hanno cercato di spezzare cercan- 
do di scrivere in uno stile colloquiale 
brillante e inserendo qua e là diverse 
vignette (queste, ahimé, un pò meno 
brillanti). 

Anche se alcuni argomenti non vengo- 
no trattati o sono solo accennati (fun- 


zioni trigonometriche, definizione di 
funzioni proprie, INVERSE VIDEO e 
TRUE VIDEO, l’istruzione USR e altri, 
cosa del resto sinceramente ammessa 
dagli autori stessi), si potrebbe consi- 
derare questo libro come una 
“summa” per il programmatore agli 
inizi. Per i già decisi all'acquisto, un 
piccolo consiglio: non lasciatevi porta- 
re in un attimo alla fine, trascinati dai 
brevissimi capitoli e dal gran numero 
di argomenti, ma leggete lentamente, 
meditandoci sopra ed esercitandovi 
con calma e senza fretta sul vostro Sin- 
clair, seguendo esempi ed esercizi; so- 
lo così facendo potrete far rendere al 
massimo le lirette che avete speso. 


I libri recensiti possono 
essere ordinati 


utilizzando il coupon a 
pag. 66 


Nel prossimo numero 


OPEN, 


cme g 


REM:HW 
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ZX81 /Spectrum add-on: 


come e dove procurarsi ogni genere di 
accessorio per il vostro Sinclair 


Le interruzioni, parte seconda 
Nei meandri dello Spectrum: un’esplorazione 


all’ultimo bit 


Cubo 2D * Bollettino vendite * 
Occhio alla frana * Attacco nucleare * 


(i vostri programmi!) 


I contributi dei Club Sinclair 


»..2 altro ancora! 


Non perdete il numero 2 di SUPERSINC 


on appena passata l’onda di entu- 
Pisicono susseguente all'acquisto 
del calcolatore per tanto tempo ago- 
gnato e terminata la fase di frenetico 
furore crativo con cui il neofita affron- 
ta i primi passi della sua avventura di 
utente di computer, subentra in genere 
la fase del “collegamento”: ovverosia, 
una volta presa conoscenza dei propri, 
si spera provvisori, limiti di program- 
mazione — e completato il saccheggio 
del software in vendita nel negozio sot- 
to casa — si avverte l'esigenza di poter 
parlare con qualcuno che ne capisca 
un po' di più (e che conosca magari ri- 
venditori più forniti e meno cari...). 
Purtroppo nella maggior parte dei casi 
gli amici propri o dei figli esauriscono 
assai in fretta le loro capacità di consu- 
lenza, rendendo necessario il rivolgersi 
a sconosciuti, con tutte le incognite 
del caso. Fortunatamente sembra es- 
sere una caratteristica tipica dei sin- 
clairisti quello di essere maggiormente 
disposti, rispetto agli utenti di altre 


marche, a realizzare collegamenti riu- 
nendosi in associazioni e gruppi più o 
meno informali per trovare “amici di 
tastiera” (come direbbe Charlie Brown) 
con cui scambiare programmi, espe- 
rienze e notizie attraverso canali che 
spesso finiscono per far nascere auten- 
tiche amicizie anche fuori dall'ambito 
strettamente informatico. 

La forma più appariscente — e concre- 
ta — di questo spirito di apertura verso 
l'esterno è sicuramente il Sinclair 
Club, tipo di organizzazione che sotto 
le più svariate denominazioni si occu- 
pa di mantenere i contatti tra gli ade- 
renti, sviluppare software e hardware 
per tutti gli usi, acquistare e mettere a 


disposizione dei soci materiale spesso 
a prezzi scontati e sviluppare iniziative 
di tutti i generi secondo le proprie idee 
e possibilità costituendo un punto di 
riferimento insostituibile, specie in zo- 
ne carenti di rivenditori aggiornati e di 
informazione. 

Cosciente dell'importanza di questo fe- 
nomeno, SUPERSINC intende riserva- 
re ogni mese queste pagine a tutti i 
club sparsi per l’Italia pubblicandone 
notizie e iniziative, programmi e pro- 
getti hardware, ogni cosa che possa ri- 
sultare interessante e meritevole di 
menzione. A tale scopo chiediamo la 
collaborazione dei club di ogni ordine 
e grado: mettetevi in contatto con SU- 
PERSINC e forniteci notiziari, bolletti- 
ni e ogni altro segno della vostra attivi- 
tà; saremo felicissimi di pubblicarlo 
(ovviamente dietro vostra autorizzazio- 
ne). 


Appuntamento quindi a tutti sulle pa- 
gine ZX CLUB! 
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NON 
UN ABBONAMENTO! 


UN SUPERABBONAMENTO 


Questo è ciò che la J.soft ti offre: un superabbonamento ad una super-rivista! 
Una eccezionale offerta di lancio: 16 numeri di SUPERSINC al prezzo 
di 10 oltre alla possibilità esclusiva di ricevere mensilmente, con la copia 
della rivista, il supporto magnetico con tutti i programmi pubblicati. 
L'offerta è valida fino al 30/6/1984. 


peer |  \FNostRE SUPERPROPOSTE ABBONAMENTI 
q \inC/ Ji Abbonamento* a 16 numeri (5 nel 1984 + 11 nel 1985) 
” wi, ì; di SUPERSINCal prezzo speciale di L. 35.000 
LL anziché L._58-080C 


Abbonamento* a 16 numeri di SUPERSINC + 16 cassette 
con tutti i programmi pubblicati al 
prezzo speciale di L. 75.000, anziché L._128-880C 


*L’abbonamento decorrerà dal prossimo numero 


Abbonarsi è semplice! Effettuate il versamento con l’apposito modulo 
c.C.p. inserito in questo fascicolo, oppure ritagliate il tagliando 
abbonamenti pubblicato in questa pagina e speditelo allegando un 
assegno intestato a: 

J.soft - Via Rosellini 12 - 20124 Milano. 


Tagliando abbonamento a SUPERSINC da inviare in busta chiusa a: 
J.soft - Via Rosellini 12 - 20124 Milano 


| 
| 
| 
O Desidero sottoscrivere un abbonamento a 16 numeri (5 nel 1984 + 11 nel 1985) di SUPERSINC al | 
prezzo speciale di L. 35.000 anziché L58069 | 

| 

O Desidero sottoscrivere un abbonamento a 16 numeri (5 nel 1984 + 11 nel 1985) di SUPERSINC | 
+ 16 cassette con tutti i programmi pubblicati al prezzo speciale di L. 75.000 anziché L. 1268-0687 | 

| 

cognome nome I 
via città | 
cap. provincia data 
| 

| 

I 
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firma 


Vendo Sinclair ZX 81 completo di 
alimentatore cavetti con imballo 
originale e garanzia con cassetta 
di 30 programmi e 2 libri a Lire 
120.000 trattabilissime. Vero affa- 
re!! 

Francesco Vellutini - Via Bezzecca, 
6 - 20135 Milano - Tel. 5485649. 


Sinclair club Mantova compra ven- 
de scambia programmi ZX Spec- 
trum in tutta Italia ed estero banca 
dati di oltre 700 programmi per 
qualsiasi informazione. 

Luca Gandellini - Via strada Cisa, 
95 - 46047 Bancole di Porto Man- 
tovano (MN) - Tel. 0376/398220. 


Cambio o vendo per ZX Spectrum 
200 programmi da L. 3.000 a 
5.000 senza distinzione: games, 
utility, linguaggi. Chiedere lista 
senza impegno o telefonare. 
Gianfranco Posterli - Via L. Ario- 
sto, 123 - 20099 Sesto S.G. - Tel. 
02/2480163. 


Costruisco generatore di caratteri 
per ZX 81 aggiunge 256 caratteri 
al tuo computer mi basta un dise- 
gno su carta quadrettata dei nuovi 
simboli che vuoi il prezzo va da L. 
55.000 a L. 75.000. 

Sergio Coraglia - Via Tagliamento, 
8 - 10096 Rivoli (TO) - Tel. 
011/9591904. 


Cambio, vendo programmi per ZX 
81 con 1,4,16,32,64K RAM di me- 
moria disponibili molti giochi, uti- 
lites, software aziendale e l’user 
definable graphics. Per avere diret- 
tamente e gratis la lista dattilo- 
scritta o telefonare a: 

Maurizio Marini - Via Mincio, 57 - 
52100 Arezzo. 


Scambio software per ZX 81 su li- 
stati o cassette inviatemi vostra li- 
sta che io invierò la mia. 

Paolo Paldo - Via Circonvallazio- 
ne, 30 - 20040 Cornate D'Adda - 
Tel. 039/6926260. 


Vendo, scambio od acquisto pro- 
grammi per ZX Spectrum. 

Cerco, stampante ZX Printer od al- 
tra, ad un prezzo modesto. 

Cerco, libri per ZX Spectrum. 
Marco Arzani - Via Giovanni XXIII, 
14 - 29017 Fiorenzuola D’Arda 
(PC) - Tel. 0523/982401. 


Vendo, cambio programmi per ZX 
Spectrum, scrivete chiedendomi 
lista di programmi a L. 5.000 cad. 
Francesco Avallone - Via Nicola 
Sole, 4 - 85100 Potenza - Tel. 
0973/20281. 


Per Sinclair Spectrum disponendo 
di un notevole archivio software. 
Vendo a L. 10.000 cassetta con 5 
giochi a scelta. Telefonare ore pa- 
sti. Scrivere. 

Ivano Parbuono - Via A. di Cambio, 
4 - 37138 Verona - Tel. 
045/568649. 


Cambio programmi per ZX Spec- 
trum 16-48K. Telefonare 

Roberto Polastro - C.so Tassoni, 81 
- 10143 Torino - Tel. 011/751453. 


Vendo o cambio programmi per 
Spectrum (ne possiedo un centi- 
naio circa) 16K e 48K. Scrivere per 
scambio elenco. Max serietà. 

Luca Prian - Cannaregio 1091/e - 
30121 Venezia - Tel. 041/713438. 


Per Spectrum cambio e vendo 
software. L. 5.000 al programma 
(min. 4 programmi) cassetta com- 
presa. Sono a Milano quasi tutti i 
giorni. Telefonate anche solo per 
farvi spedire l'elenco dei program- 
mi. 

Livio Scandella - Via De Amicis, 3 - 
27029 Vigevano (PV) - Tel. 
0381/72955. 


Vendo programmi (tutti LM) per 
ZX Spectrum. Ogni programma L. 
5.000 una cassetta da 90’ con 15 
giochi L. 45.000. Telefonare (ore 
pasti) o richiedete lista a: 

Alberto Bianchini - Via Val Maira, 
45 - 20162 Milano - Tel. 
02/6429360. 


Vendo causa acquisto Spectrum 
pocket computer Casio PB 100 + 
espansione (1Kbyte RAM) OR-1 + 
int. registratore FP12 + mini 
stampante FA3, tutto sole L. 
300.000. Tutto il materiale è nuo- 
vissimo usato solo 2 settimane, è 
in garanzia fino al 1985. 

Luigi Cerabolini - Via Felice Caval- 
lotti, 91 - 27011 Belgioioso (PV) - 
Tel. 0382/960816. 


Cambio centinaia di programmi 
ZX Spectrum da 16 Kbyte 48 Kby- 
te. 

Alessio Santangelo - Via Luca Gan- 
rico - 00143 Roma - Tel. 
06/5912226-5040151. 


Cambio, vendo programmi per ZX 
Spectrum. Prezzi imbattibili (min. 
L. 2.000 max L. 4.000 esc. cassetta 
e/o eventuali manuali). Scrivetemi 
per il listino. Se volete scambiare, 
mandatemi il vostro. 

Stefano Giannici - Viale Francia, 4 
- 90146 Palermo - Tel. 500190. 


Cambio software per Spectrum 16 
o 48 Kbyte dispongo di ottimo ma- 
teriale giochi e applicazioni come: 
FORTH logassemblatore ecc. Sci- 
vetemi e vi manderò la lista. 
Alessandeo Augello - Viale Del 
Fante, 56 - 90146 Palermo - Tel. 
501740. 


Vendo varie cassette per Spec- 
trum: mastermind, battaglia galat- 
tica, pacman e tanti altri a sole L. 
5.000 cad. 

Sergio Aprile - Via Molinello, 70 - 
86039 Termoli. 


Vendo o cambio più di 60 pro- 
grammi per ZX Spectrum fra cui 
giochi di ottima risoluzione grafica 
(burgertime, pacman, frogger, hob- 
bit, crazy kong, vu-calc, vu-file, vu- 
3D, Pascal, Fortran) a metà prezzo. 
Vendo inoltre Atari 2600 in ottime 
condizioni con 6 cassette a sole L. 
250.000. 

Carlo Brini - Via Marciano di Era- 
clea, 25 - 00124 Roma - Tel. 
6094506. 


Spectrum, vendo-cambio pro- 
grammi, cerco contatti con club o 
singoli possessori dello Spectrum. 
Risponderò a tutti. 

Mario Pacchiarotti - Via Tuscola- 
na, 884 - 00174 Roma - Tel. 
06/7612788. 


Vendo ZX 81 + memopak 32 Kby- 
te + alimentatore, cavi collega- 
mento, 2 manuali, 1 libro di pro- 
grammi, una decina di cassette 
(scacchi, data base, statistica, fan- 
tasy game). L. 250.000 in tutto. Te- 
lefonare ore pasti a: 

Giuseppe Marini - Viale Primavera, 
25A/3 - 16148 Genova - Tel. 
010/330990. 


Cambio, vendo programmi per ZX 
Spectrum 16/48 Kbyte, vendo cas- 
sette con 1/2 programmi a L. 
5.000/7.000. 

Stefano Sansavini - Via dei Macci, 
18 - 50100 Firenze - Tel. 
055/652321. 


Compro listati o cassette per ZX 
Spectrum o TI/99/4D riguardanti il 
programma di computisteria e ra- 
gioneria per il triennio dell'istituto 
tecnico commerciale. 

Ivo Spadone - Via C. Colombo, 6 - 
18039 Ventimiglia (MI). 


Occasione per ZX81 e per ZX 
Spectrum. Vendo l'interfaccia pro- 
grammabile per joystick dell’Agfa 
a L. 50.000 (trattabili). Teledonare 
nelle ore serali. 

Giuseppe Bungaro - Viale dei Mon- 
fortani, 12 - 00135 Roma - Tel. 
06/33856611. 


Vendo programmi ZX Spectrum 
flipper - H. hedges - luna crabs - 
starclash - bugaboo - death chase - 
paintbox - catalogo a richiesta L. 
1.000. 

Stefano Nocilli - Via Tuscolana, 
224 - 00181 Roma. 


Vendo programmi per ZX Spec- 
trum a L. 6.000 cad. due program- 
mi L. 10.000. Per informazioni te- 
lefonare a: 

Marco Turiello - Via Fiordalisi, 1 - 
20146 Milano - Tel. 02/4335382 
(ore pasti) 3284770 (dopo le ore 
20). 


Vendo Sinclair ZX 81 completo di 
alimentatore cavetti per registrare 
memoria da 16 Kbyte RAM e ma- 
nuali in inglese e in italiano il tutto 
a L. 140.000. Telefonare ore pasti 


a: 
Pietro Di Giacomo - Via dei Filoso- 
fi, 14 - 06100 Perugia - Tel. 
075/31129. 


Cerco possessori di ZX Spectrum 
per scambio programmi. 

Marco Varazi - Via Pinturicchio, 10 
- 05100 Terni - Tel. 420282. 


Spectrum vendo programmi gioco 
e utilità risposta garantita invio 
elenco gratuitamente scrivere o te- 
lefonare ore cena a: 

Antonio Sfriso - Via O. Salamone, 
7 - 301173 Mestre (VE) - Tel. 
041/972887. 


Programmi su nastro, Spectrum: 
20 + 20 prg. (3 nastri diversi). ZX 
81:50 + 50 progr. 1Kbyte, 35 + 
35 progr. 16Kbyte, 20 maxi prog. 
16 Kbyte). Incredibile sono impaz- 
zito: ogni nastro L. 7.000 solo se 
soddisfatti dopo 10 giorni prova. 
Richiedili a: 

Bruno Del Medico - Via Torino, 72 
- 04016 Sabaudia. 


Cambio, vendo software Spectrum 
16/48 Kbyte - buon prezzo - invia- 
temi vostro elenco per scambio, vi 
invierò il mio, oppure richiedete la 
mia lista per acquisti allegando L. 
400 in francobolli. 

Erminio Benzoni - Via Del Cipres- 
so, 4 - 20050 Perledo (CO) - Tel. 
0341/830026 (ore serali). 


Cambio, vendo software per ZX 
Spectrum 16/48 Kbyte. 

Oltre 50 tioli a carattere commer- 
ciale ed altrettanti originali. L. 
4.000/L. 5.000 rispettivamente per 
16 e 48 Kbyte. 

Richiedere lista inviando L. 400 in 
bolli. 

G. Franco Posterli - Via Ariosto, 
123 - 20099 Sesto S.G. (MI) - Tel. 
02/2480163. 


Vendo 25 giochi originali inglesi 
su cassette per ZX Spectrum a L. 
50.000 + spese (spedizione - even- 
tuali fotocopie di manuali). Di- 
spondo inoltre di software di ogni 
tipo. Chiedere lista contenente ol- 
tre 200 titoli a: 

Nicola D'Alessandro - Via C. Alci- 
de De Gasperi, 413/D - 70125 Bari 
- Tel. 412470. 


Per la 
pubblicazione 
dei vostri 


annunci 
utilizzare il 
coupon a pag. 
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CEDOLA DI ORDINAZIONE - LIBRI 
da compilare e spedire in busta chiusa a 
TechnoClub - Via Rosellini, 12 - 20124 Milano Tel. 6888228 


Ordino i seguenti libri per un importo totale di L.............. 

come contributo fisso per spese di spedizione 

Coni RI Seen io arena dora Le e o 
Colere ncaiazandeni CO: ili CO iii 


CD) Contanti allegati {] Assegno allegato n° 


O Ho spedito l’importo a mezzo vaglia postale 
O Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub - Milano 


D) Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per 
i soci in Italia) 


SUPERSINC 


CEDOLA DI ORDINAZIONE - software 
da compilare e spedire in busta chiusa a 
TechnoClub - Via Rosellini, 12 - 20124 Milano Tel. 6888228 


SOFTWARE 


Ordino i seguenti libri per un importo totale di L. .................................. + L. 2.000 
come contributo fisso per spese di spedizione 

Cogliate VOR Ai Colizirrricziriccicaczinrani 
EROS COUS sicriicveresecionizoe CORI 


Contanti allegati {| Assegno allegato n° 


Ho spedito l’importo a mezzo vaglia postale 


CI Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub - Milano 


CD) Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per 
i soci in Italia) . 


SUPERSING 


INPUT/OUTPUT 


La rubrica INPUT/OUTPUT è gratuita ed aperta a 
tutti i lettori. Chi desidera comprare, vendere o 
cambiare hardware o software può inviare il ta- 
gliando a J.soft - Via Rosellini, 12 - 20124 MILANO 


LU COMPRO DO VENDO 
O ZX80 LL) ZX81 


{) CAMBIO 


Ci ZX Spectrum LC) PERIF. LU) SOFTWARE 


PROGRAMMAZIONE 
DELLO ZX SPECTRUM 
EASY PROGRAMMING 
FOR THE ZX SPECTRUM 


cod. AJACO28 L. 16.200 
cod. BSHT003 L. 16.900 


Se richiesta fattura: 
Cod. F. e P. iva 


Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 


ALCHEMIST: 


cod. DIGMS03 L. 13.000 
STONKERS: 


cod. DIGMSO6 L. 13.000 


Se richiesta fattura: 
Cod. F. e P. iva 


Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 


SUPERSINC è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 


HOME COMPUTER 


LA RIVISTA DEL Pe IN CASA 


La prima . EE l’unica 


Enciclopedia 
di Elettronica 
e Informatica 


Oggi 
conla 2° Edizione 
...lapiù aggiornata! 
In edicola. 


Il successo sÌ ripete 
— 


A bk: un prezioso strumento di E.I. una prestigiosa 
formazione e di aggiornamento collaborazione tra 
a cui sono abbonati anche migliaia di Learning Center 


specialisti, tra cui 4000 quadri FIAT TEXAS INSTRUMENTS de 
un orgoglioso primato 
dell’editoria italiana 

alla cui pubblicazione 

sono interessati editori i 

francesi, tedeschi, svedesi, canadesi, 
inglesi, sudafricani, portoghesi, 
spagnoli, australiani, zelandesi, 
messicani, sudamericani 

uno strepitoso successo di lettori: 
fino a oggi 6.000.000 

di fascicoli venduti 

una splendida opera da 
biblioteca 

da 60 fascicoli settimanali 


7 volumi - 1680 pagine - 700 foto È 
2200 illustrazioni a colori ES” GRUPPO EDITORIALE JACKSON 


